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SOFTWARE 

Sabre Wulf, 
el hroe de la jungla, 
en busca del 
Talism6n Sagrado. 
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I SIN EL RECARGO DEL IVAt 
Oferta valida hasta el 28 de febrero de 1986. 
geseo recibir en mi domicilio, i 1  1 W, los siguienles 
nmeros atrasados de Microhobby AMSTD, al precio de ! 50 ptas. 
coda uno 

Nota: 
Par razones administrativas no podemos admitir solicitu- 
des de env/o de nmeros sueltos con page mediante tar/e- 
ta de cr6dito. Los pedidos contra-reembolso se incremen- 
tar6n en "75 ptas. de gastos de env/o. 

NOMBRE EDAD 
APELLIDOS 

DOMICILIO 

ClUDAD PROVINCIA 
C. POSTAL TELEFONO PROFESION 
/,ERES SUSCRIPTOR DE MICROHOBBY AMSTRAD? N. ° DE SUSCRIPTOR (si Io recuerdas) __ 
Marco con una (x) en el casillero correspondiente la farina de pago que m6s me conviene. 
Tal6n bancario adjunto a hombre de HOBBY PRESS, S. A. 
Giro Postal a hombre de HOBBY PRESS, S. A., N. ° 
Contra reembolso. Firma 

Presldente 
Maria Andrino 
Consejero Delegado 
Jos I. G6mez-Centuri6n 

Jefe de Publicldad 
Concho Gutirrez 
Publlcidad Barcelona 
Jas Gal6n Cortes 
Tel: (93) 303 10 22/313 71 62 
Secretarla de Direcci6n 
Marisa Cogorro 
Suscripciones 
M. a Rosa Gonz61ez 
M. a del Mar Calzado 
Redacci6n, Administraci6n 
y Publicidad 
/o Granjo, 39 
Polfgono Industrial de Alcobendas 
Tel.: 654 32 1t 
Telex: 49 480 HOPR 
Dto, Circulaci6n 
Carlos Peropadre 
Distribuci6n 
Coedis, S. A. Valencia, 245 
Barcelona 

Imprime 
ROTEDIC, S. A. Crta. de Ir0n. 
Kin. 12,450 (MADRID) 
Fotocomposici6n 
Novocomp, S.A. 
Nicol6s Morales, 38-40 
Fotomec6nica 
GROF 
Ezequiel Solona, 16 
Dep6sito Legal: 
M-28468-1985 

Derechos exclusives 
de la revisto 
COMPUTING with 
the AMSTRAD 
Representonte pore Argentina, Chile, 
Uruguay y Paraguay, Cia. 
Americana de Ediclones, S.R.L. Sud 
America 1.$32. Tel.: 21 24 64. 1209 
BUENOS AIRES (Argentina). 
M. H. AMSTRAD no se hate 
necesariamente solidaria de los 
oplniones vertidos par sus 
colaboradores en los articulos 
firmados. Reservodos todos los 
derechos. 
Se solicitar6 control OJD 

cu pf)Jtemas ae la vide real a los que podemos 
aplicar/es un tratomNnto informdtico son, par 
desgracia, bastonte temple/as. Muchos de el/as 
requieren una estructura orgonizoda de doles, es 
decir, una mafriz, pare no baste siempre con una 
matriz de una solo dimensiSn. El Basic permite una 
aproximadSn rods potente, a/doter a/as matrices de 
tedas /as dimensbnes qua queramos. Veremos en 
Primates pesos coma se utilizan. 

Serie Or< 

Pare equal/as qua eslEn harios de I/ever/as m(dtip/es 
cuenlas de gastos e ingresos de su hogar a mane, 
5upercont /es viene qua ni pinlade. Tedeen y verdn... 

Sabre Wulf, un ddsico de Ultimate al a/canoe de 
todos bs forofos de los/uegos de aventuras qua 
tengan un Amstrad. 

0 ProgramAcci6n 

Easydraw. pub/icado en el n(mero I de nuestra 
revista, es un gran programa, pare sin dude admire 
me/eras. El programa magnificador de coracleres es 
uno, y muy imporlante. Pronto se convertird en una 
herramienta esencial pare tus disefios grdfkos. 

Despus de haber hob/ado de a/goritmos de 
ordenad6n, /e lace el turno a los mdtodos de 
bdsqueda de dates. L/no de el/as, b b/squeda binar/a, 
es muy sencilla y rdp/da, y puede aplicarse tanta a 
ndmero$ came a cadenas. 

e C  digo m6quina 

Continuamos anafizando el grupo de instrucciones de 
rotaci6n y desp/azamienlo, uno de los ¢sets de 

5 6rdenes mds dti/es de/ZSO. 
Amstravogancia 30 
Los discos necesitan materna/es cuidedos pore clue Amstradldeas 
permanezcan sanos y salvos, con lode su informaan 
incdlume. En interns de redes los usuafios, AMSTRAD Una excelente idea qua muestra e/cddigo ASCII de 
$emanal reve/a el ABC de/afle de/cuidado de los /a teda pu/sada en /a panta//a de farina rdpida y 
discos, e/eganle. 
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Aria II • Ndmera 22 • 28 de Enero al 4 de Febrero de 1985 
160 ptas. (incluido I.V.A.) 
Precia Canarias, Ceuta y Melilla 155÷ 10 ptas. sobretasa aErea. 

Primera 
plana 

Arnstradrob6tica. Nuevos compatibles/BM A "f. 

Primeros 
pasos 

Los probfemas de fa v/do real a los que podemos 
aplicar/es un tratarniento informdtico son, par 
desgrada, bastante cornpfe/os. Muchos de e/los 
requieren una estructura organizada de datos, es 
dec/r, una rnatriz, pero no basra s/ernpre con una 
rnatriz de una solo dirnensidn. El Basic perrnite una 
aproxirnaci6n rnds potente, al dotar a/as matrices de 
todas /as dirnensiones que querarnos. Verernos en 
Primeros pasos coma se utifizan. 

..) 

'i 

Serie Or< t 
Faro aquel/os que estdn harlos de Ifevar /as m#llipfes 
cuentas de gastos e ingresos de su hogar a mona, 
Supercont les viene que ni pintado. Tecfeen y ver6n... 

5 A rostra vagancia 

Los discos necesifan maternales cuidados para que 
permanezcan sanos y salvos, con foda su inforrnad6n 
inc6lurne. En interns de todos los usuorios, AMSFRAD 
Semanal revela el ABC de/arte de/cuidado de los 
d/scos, 

Sabre Wulf, un cldsico de Ultimate al alcance de 
todos los forofos de/as/uegos de aventuras clue 
tengan un Amstrad. 

0 ProgramAcci6n 

Easydraw. publicado en el ndmero I de nuesfra 
revista, es un gran programa, pero sin duda admite 
rneioras. E/ prograrna rnagnificador de caracteres es 
uno, y rnuy irnportante. Pronto se convertir5 en una 
herrarnienta esencia/ para tus diseos graficos. 

Oespus de haber hob/ado de algoritmos de 
ordenaci6n, le toca el turno a los mtodos de 
bdsqueda de datos. Uno de e/los, la bdsclueda binaria, 
es rnuy sencillo y r6pido, y puede aplicarse tanto a 
nmeros corno a cadenas. 

• C  cligo m  quina 

Confinuamos ana/izando el grupo de instrucciones de 
rotaci6n y desplazarniento, uno de los esets de 
6rdenes m#s #tiles de/ZBO. 

Amstrodldeas30 

Una excefente idea que rnuestra el c6digo A,Cll de 
/a teda pulsada en la pantalla de farina rSpida y 
efegante. 
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2112: Nuevo. De Design Desgin. 
Con este juego debes usar toda tu inteligencia 
para veneer las dificultades que te ofrece. Es 
increible la velocidad con que los grfificos van 
cambiando en la pantalla. 
Spectrum 48 6 128 K. P.V.P. 1.800 

Fordidden Planet. De Design Design. Nuevo. 
Este juego fabuloso es tan misterioso que 
debes descubrirlo por ti mismo, iVive las 
aventuras! 
Para Spectrum 48 y 128 K. P.V.P. 1.800 

Wizard Lair: de 
Bubble Bus. 
Te encuentras 
atrapado en una 
cueva muy 
profunda 
peligrando tu 
vida. Tienes quc 
buscar la salida 
venciendo 
muchos 
obstficulos. 
Spectrum 48 y 
128 K. 
Commodore 64 y 
128 K. Amstrad 
CPC. P.V.P. 
1.900 

Starquake: de 
Bubble Bus. 
Nuevo Hit. 
Tu misi6n es 
encontrar el "' 
camino de 
Starquake y 
desactivar los 
nticleos de los 
planetas antes de 
quc el mundo 
cstalle, iMPs de 
400 pantallas! .... ...  ., 
ParaSpectrum ....... .... • 
48, 128 K. 
Pr6ximamente 
Amstrad CPC. 
P.V.P. 2.100 

Hi Rise: de I 
Bubble BUS. "-  |.,.,.., ' 
Nuevo.  , ,  
Tfi eres el jefe c 
de una empresa  ' • 
de construcci6n. .. • _ .... 
Fus trabajadores ' '  
no est.n  , 
contentos "' -'-, " 
contigo. Tienes 
para evitar 
enfrentamientos. • • 
Para Amstrad 
CPC. P.V.P. 
2.100 

Ahora exclusiva para Espafia Bristish Soft. 
lnstrucciones en castellano. Importados de Inglaterra. Todos los precios incluido IVA. Tiendas y distribuidores. 
Tel. (965) 26 35 93. Pedidos contra-rcembolso. Tel. (965) 26 35 93. Disponible dircctamcntc por British Soft o en 
los mejores establccimientos de software. 
British Soft. Rocafel, 19. Albufereta (Alicante) 
Distribuidor en Madrid: 
Computique • - 
,//.: Embajadores, 90 
28012 Madrid t  . _ 
_ " t ''3 Tel. (91) 227 09 80 ,'. 
--  -/ Jep Set Willy II: de 

Vectron: de Insight. 
Nuevo Hit en 
lnglaterra. Vas a ser 
transportado a un 
extrafio ordenador que 
genera el universo. 
Tienes que luchar 
contra el robot. Rom, 
tanques y Randomiser. 
Para Spectrum 48 y 
128 K. P.V.P. 1.800 

Software Proyects. 
Ahora una segunda 
versi6n del famoso - 
h6roe Willy. Mils de L, 
130 pantallas. Otro hit 
de la misma casa que 
Manic Miner. Para 
Spectrum 48 y 128 K. ,.!   ,. i.., 
Commodore 64 y 128 
K. Amstrad CPC y 
MSX. P.V.P. 1.800 



EL MSTRAD 
PUEDE 

CONTROLAR 
ROBOTS 

hertechnik 
ha desarrollado un interface especi- 
rico para los diferentes tipos de or- 
denadores Amstrad que los convier- 
te en una unidad de control de ro- 
bots. 
Luego est6 el propio equipo de 
construcci6n, que contiene los com- 
ponentes para construir cualquiera 
de los siguientes: 
-- Elevador de cargas: eleva tres 
alturas diferentes, con tres funciones 
y corfiandos. 
-- Herramienta mec6nica: combi- 
na mediante el trabajo dos procesos 
diferentes. 
-- Plotter: compila grficos me- 
diante el ordenador. 
-- Torre de Hanoi: un robot de 
ejes de giro coloca las fichas para ju- 
gar a la Torre de Hanoi. 
-- Panel gr6fico: unidad de entra- 
da de gr6ficos para dibujar en la 
pantalla. 
-- Robot aprendiz: aprende se- 
cuencias de movimientos y los repite 
autom6ticamente. 
La 01tima parte ofrecida par Fis- 
chertecnik es el software. Los formao 
tos con los que se proporciona son 
los siguientes: Cassette o Diskette pa- 
ra Amstrad CPC 464-664-612. 
Par 61timo su precio, incluyendo la 
caja de construcci6n, el software, el 
interface y el adaptador para conec- 
tar a la red el6ctrica, es de 34.900 
ptas. El distribuidor para Espaa es 
Master Computer, Centro Comercial, 
Ciudad Santo Domingo, Ctra. Bur- 
gas, km 28, Algete (Madrid). 

COMPA flBLE A T DE 
HEWLETT PACKARD 

Hewlett Packard ha contribuido 
con su grano de arena a intentar 
arrebatarle a IBM la parte del le6n 
del mercado del ordenador perso- 
nal, monopolizado par la multinacio- 
hal americana. 
El grano de arena se llama HP 
Vectra, yes una maravilla: las espe- 
cificaciones son las habituales; m6s 
memoria que el IBM AT, el mismo mi- 
croprocesador (Intel 80286) y siste- 
ma operativo (MS-DOS 3.X y/o XE- 
NIX), aproximado un 30 par 100 
m6s veloz que el AT y entre un 20 
par 100 y un 60 par 100 m6s barato 
(esto ltimo segn Hewlett Packard, 
clara). 

IB/t4 DESCOLONIZ,4 
Z  /t4Bl 

n plan noticia bre- 
ve, parece ser que I Bt  se ha visto 
obligada a abandonar a Zambia, 
uno de su mayores -ercados en 
Africa (si, si, coma Io ayen), debido 
a la poltica de ventas extrernada- 
mente agresiva de sus principales 
competidores en el sector: ICL e HI- 
TACH I. 

, rimera 
plana 

Problemas 
en Control 
Data 

Se preveen unas p6rdidas de Con- 
trol Data para este ao de unos 50 
millones de d61ares. Coma medida 
de urgencia, la empresa aprob6 dar 
a sus empleados 4 dias de vacacio- 
nes sin sueldo, que adem6s son obli- 
gatorias. 
Adem6s, 1.500 puestos de traba- 
jo en Magnetic Peripherals, filial de 
la empresa, se volatilizan par mo- 
mentos. 
Tiene gracia que alguien d6 vaca- 
ciones obligatorias. En fin, la crisis. 

NUEVO$ 
$1$TEMA$ DE 
ALMACENAMIENTO 3M 

3M, la conocida marca lider en el 
campo de los sistemas de almacena- 
miento masivo de datos (discos, con 
perd6n), ha presentado su nueva ga- 
ma de cartuchos y disk -ttes, introdu- 
ciendo importantes no, edades en es- 
te campo. 
Concretamente un disco de 3,5 
pulgadas (formato Sony) de un me- 
gabyte de capacidad, par supuesto 
en doble cara, doble densidad. Un 
disco de 5,25 pulgadas, tambi6n de 
alta densidad, capaz para almace- 
nar 1,6 megabytes. 
Ambos dos sergn comercializados 
con la famosa garantia 3M para to- 
da la vida. 
En cuanto a los cartuchos, desta- 
ca el modelo DC 300XLP. Este nom- 
bre, tan fccil de recordar, esconde 
una pequea maravilla que puede 
almacenar 45 megabytes de infor- 
maci6n. 
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JlIIA TRICES D 
DOS DIMENSION $ 

En este momento ya somos capaces de saber ClU es y para 
ClU sirve una variable con un subindice entre parntesis. 
Vamos a meternos en m6s profundidades. 
$i ahadlmos una dimension --sublndice-- a estas variables 
habremos descubierto unah, erramienta de gran utilidad en el 
mundo de la programacion: las matrices bidimensionales. 

n el 0nterior ar- 
tlculo de la serie vimos como se pue- 
de definir y dimensiona, una colec- 
ci6n de elementos del mimo tiponu- 
mgrico o alfanumgrico. I 
DIM conjunto (7) 
o 
DIM grupoS (16) 
son dos 6rdenes que dimensionan o 
.uardan en memoria el espacio su- 
ticiente para contener 8 n0meros o 
17 valores alfanum6ricos respectiva- 
mente. El nOmero que est6 entre pa- 
rntesis indica el valor mximo que 
puede tener un elemento cualquiera 
de estas colecciones. 
No se olvide, y tenga muy en cuen- 
ta que el elemento con subindice O 
tambi6n existe y que Io podemos uti- 
lizar como otro cualquiera. 

(Bidimensionor)) 
una matriz... 

Bien, avancemos. A partir de aho- 
ra vamos a utilizar matrices con dos 
subindices. La forma de indicarle al 
ordenador que nos reserve espacio 
para este tipo de variables es dimen- 
sionarlas dcndoles un hombre segui- 
do de dos subindices separados por 
una coma y colocados entre par6n- 
tesis. F6cil, /.no? 

DIM conjunto (3,2) 

6 /cooeeYAMSI'RAD 

nos guardaria en la memoria el es- 
pacio necesario para almacenar 12 
n0meros (4*3), 
DIM arrayS (2,6) 
definiria un conjunto de 21 elemen- 
tos alfanumricos a los que podemos 
acceder mediante estos dos subindi- 
ces. 
Podemos asociar estas variables 
con dos indices a la idea de un es- 
pacio de dos dimensiones. Sus ele- 
mentos se agrupan en tantas filas co- 
mo nos indique el primer subindice y 
en tantas columnas como nos diga el 
segundo. 

DIM grupoS (3,2) 

seria una matriz de dos dimensiones 
que tendria 4 filas --3 m6s la ilia 0-- 
y3 columnas--2 m6s la columna 0. 
Si queremos dirigirnos a un ele- 
mento en concreto nos bastaria con 
hacer: 

grupoS (2,1) 

y tendriamos Iocalizado el que estg 
colocado en la fila 2 y columna 1. 
Estamos seguros que no tendr6 
ning0n problema en decirnos c6mo 
se pondr6 el elemento de este array 
que est6 situado en la ilia 1, colum- 
na 2. 

...e inicializarla 

La forma de almacenar un valor 
en un lugar determinado dentro de 
una matriz bidimensional es semeian- 
te a como se hacia para las de una 
dimensi6n: 

grupoS (2,1) = <<nombre> 



colocaria el valor alfanum6rico 
<<nombre>> en el lugar reservado en 
memoria para el elemento del array 
situado en la ilia 2 y la columna 1, 

coniunto (3,1) -- nOmero 

almacenaria el valor que contiene la 
variable ¢nmero en el elemento si- 
tuado en la ilia 3, columna 1 de la 
matriz dimensionada con el hombre 
<<¢oniunto>. 
De la misma forma, si queremos 
asignar el valor de un elemento de- 
terminado a una variable podemos 
hacerlo asi: 

n0mero=conjunto (3,1) 

y si queremos sacarlo en pantalla, 
con una sencilla instrucci6n: 

PRINT conjunto (3,1) 

nos seria suficiente. 
Vamos a analizar un pequeo pro- 
grama que nos intentar6 despejar las 
posibles dudas que tengamos sobre 
estos conceptos y que es un resumen 
de la asociaci6n de estas variables a 
la idea de las dos dimensiones --filas, 
columnas. 

Programa uno 

Debe resultarle sencillo de seguir. 
Est6 dividido en tres partes: 
En la primera nos pide los valores 
mcximo de los subindices y los alma- 
cena en los variables (<filas>> y ((¢o- 
lumnas) lineas 30 y 40. 
Dimensiona la matriz segOn estos 
valores en la linea 50. 
La segunda parte --lineas 60 a 
140-- se encarga de dar el valor que 
nosotros queramos a cada uno de los 
elementos de la matriz que anterior- 
mente hemos dimensionado. 
Para ello utiliza dos bucles anida- 
dos cuyas variables de control son <<i>> 
y <<j>>, oscilando desde 1 hasta los va- 
lores m6ximos indicados por los va- 
riables <filas>> y <columnas>>. 
En la linea 120 asigna el n0mero 
que nosotros damos por el teclado a 
cada uno de los elementos. 
La tercera parte --lineas 150 a 
230-- es la que utilizamos para Io- 
calizar los valores almacenados en la 
ilia y columna que nosotros quera- 
mos. 
Las lineas 160 y 230 son los Ifmites 
de un bucle WHILE ... WEND en el 
que la condici6n se est6 cumpliendo 
constantemente: la variable <condi- 
ci6n vale siempre O ya cue nuestro 

Amstrad asi la inicializa y nosotros 
no cambiamos su valor en el progra- 
ma. 
Esto quiere decir que nunca saldre- 
mos del bucle. La 0nica forma de ha- 
cerlo, cuando ya estemos cansados 
de investigar valores, es pulsando la 
tecla ESC. produciendo un BREAK en 
el programa. 
En las linea 190 y 200 metemos en 
el ordenador los n0meros de la ilia 
y la columna del elemento cuyo va- 
lor queremos encontrar. Los almace- 
namos en las variables (<filo>> y <<co- 
lumna>>. 
Mediante la linea 210 asignamos 
a la variable ngmero el valor del 
elemento pedido yen la linea 220 Io 
imprimimos. 
Estamos seguros de que no habr6 
ninguna dificultad en seguir este pro- 
gramita. Habrci podido obsevar que 
los subindices est6n en este caso 
constituidos por variables num6ricas 
y hubieran podido ser tambi6n ex- 
presiones tan complicadas como nos- 
otros quisi6ramos. 
Le hacemos ahora una sugerencia: 
la mejor forma de comprender exac- 
tamente la filosofia de este tipo de 
variables es manej6ndolas usted mis- 
mo. No se limite a leer Io que nos- 
otros le decimos. Intente cambiar los 
programas que le proponemos. Por 
ejemplo: Qu6 ocurriria si uno de los 
subindices de un elemento es mayor 
que los especificados en la instruc- 
ci6n DIM? ,Qu6 mensaje nos daria 
el ordenador? Qu6 ocurre si...? No 
Io dude y decidse a realizar sus pro- 
pias investigaciones. 
P6ngase en plan de severo profe- 
sor que acaba de realizar una exa- 
men a sus alumnos. Llega la hora de 
calificar y ordenar los aprobados y 
suspensos. Le proponemos que se 
ejercite escribiendo un programa 
que nos permita almacenar y buscar 
despu6s las notas de cada alumno y 
adem6s contabilizar los aprobados 
y suspensos por asignatura. Vamos 
a hacerlo juntos. 
Lo primero que necesitamos es co- 
nocer el n0mero de alumnos y el de 
asignaturas para asi definir adecua- 
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damente dos tablas, una que conten- 
ga el nombre del alumno --por tan- 
to ser una matriz de cadena-- y 
otra que contenga las notas que tie- 
ne cada alumno en cada asignatu- 
ra-- serc bidimensional y numarica. 
/,De acuerdo? 
Una vez definidas las matrices Ile- 
ga la hora de ir almacenando los da- 
tos. Como hemos dicho antes en una 
guardaremos los nombres yen la 
otra las notas por asignatura. 
Solamente nos queda contabilizar 
los aprobados y suspensos median- 
te la sencilla condici6n de que la no- 
ta --almacenada en un lugar deter- 
minado de la tabla de dos dimensio- 
nes-- sea o no menor que cinco. 
Ve6moslo sobre el Programa II. 

• grama dos 

La mecnica de funcionamiento de 
este programa es muy sencilla. Con 
las lineas 40 y 50 conocemos las di- 
mensiones de las matrices. En elias 
damos al ordenador los valores m6- 
ximos que han de tener los subindi- 
ces de las variables (alumnos) y 
asignaturas. 
Mediante las 6rdenes DIM de las 
lineas 60 y 70 reservamos en la me- 
moria el espacio necesario para con- 
tener los elementos de las dos matri- 
ces mombre$ y notas que nece- 
sitamos definir y dimensionar. 
Usaremos el bucle FOR... NEXT de 
las lineas 90 y 170 para la adquisi- 
ci6n de datos de la totalida de alum- 
nos haciendo que la variable de con- 
trol i tome valores comprendidos 
entre 1 y el contenido de alumnos. 
Para recorrer la toma de notas de 
cada asignatura dentro de un deter- 
minado alumno nos encontramos 
con el otro bucle FOR... NEXT de las 
lineas 120 y 170. En este caso la va- 
riable de control es j y va roman- 
do valores comprendidos entre 1 y 
el n0mero de asignaturas almacena- 
do en asignaturas. 
Con estos dos bucles FOR... NEXT 
anidados estamos seguros de reco- 
ger todos los datos sobre las notas 
de cada asignatura para todos los 
alumnos. Si usted cree que no es asi, 
admitimos y discutiremos sus suge- 
rencias. 
En la linea 150 incrementamos el 
valor del elemento, de la fila 0 en la 
columna correspondiente a una de- 
terminada asignatura cada vez que 
nos encontremos un suspenso en ella 
--dentro de la matriz bidimensional 
de las notas-- otra utilizaci6n de di- 
cho tipo de elementos. 

Sacamos el resultado del nOmero 
de aprobados con un sencillo FOR... 
NEXT comprendido entre las lineas 
210 y 230. 
Quiz6 la novedad de este progra- 
ma II se encuentre en la parte que se 
encarga de todos los datos de un 
alumno en particular. 
En la linea 260 se realiza la entra- 
da (INPUT) del nombre del alumno 
cuyos datos queremos encontrar. Es- 
te valor literal Io almacenamos en la 
variable nombre. 
El bucle WHILE... WEND Iocaliza- 
do entre las Ineas 270 y 290 es el 
que explora dentro de la matriz que 
contiene los nombres hasta que en- 
cuentra un elemento igual al que 
nosotros le hemos dado en la linea 
260. Su misi6n es Iocalizar un indice 
que nos diga concretamente el nO- 
mero de la fila en la que se encuen- 
tran todos los elementos que contie- 
nen datos sobre el alumno por el que 
estamos preguntando en la tabla bi- 
dimensional de las notas. 
Observen atentamente esta linea: 

270 WHILE nombreS(indi- 
ce) < +nombreS 
En ella encontramos dos variables 
que aparentemente tiene el mismo 
nombre --(nombre$h ;,Qu ocurre 
aqu? Es posible que esto suceda o 
nos sa|dr6 en la pantalla un mensa- 
je de error? 
No se preocupe, no ocurrir6 na- 
da. Nuestro Amstrad es capaz de 
admitir una variable numarica o al- 
fanumarica que tenga el mismo nom- 
bre que una matriz. Como tenemos 
una m6quina muy observadora, r6- 
pidamente se dar6 cuenta de que en 
uno de los casos se utilizan subindi- 
ces y en el otro no y sabr6 distinguir 
entre ambos. 

Finalmente, una vez encontrado el 
indice correspondiente al alumno 
que nosotros busc6bamos, utilizamos 
este valor contenido en la variable 
indice para situarnos en la fila de- 
seada dentro de la matriz de las no- 
tas y sacar el informe pedido, lineas 
300 a 320. 
Antes de continuar, vamos a pen- 
sar dos cosillas de una cierta impor- 
tancia. Es necesario dimensionar las 
matrices que tienen m6s de un subin- 
dice? Podemos, una vez utilizados 
sus elementos, dimensionar de otra 
forma una tabla? Qua se le ocurre? 
Vayamos paso por paso. Cuando 
vimos los arrays de una dimensi6n, 
ten qua casos era necesario dimen- 
sionarlos? Su respuesta, imaginamos 
que habra sido acertada, podemos 
aplicarla tambian alas matrices de 
m6s de una dimensi6n. 
Siempre que no se diga nada el 
Amstrad supondr6 que el mayor su- 
bindice que vamos a utilizar ser6 el 
10. Si utilizamos uno mayor tendre- 
mosque haber definido previamen- 
te la matriz: 

DIM matriz (100,80) 

o si no estaremos expuestos al cono- 
cido mensaje: 

Subscript out of range in 1000 

por eiemplo. 
Por tanto, si no dimensionamos 
una matriz, nuestro ordenador reser- 
va en memoria el espacio equivalen- 
teal que guardaria de haberle da- 
do la orden: 

DIM matriz (10,10) 

No obstante, le recomendamos 
ue, aunque s61o sea por claridad, 
efina siempre al comienzo del pro- 
grama las matrices cuyos elementos 
se van a manipular a Io largo de su 
ejecuci6n. 
Podemos hacerlo en cualquier par- 
te del mismo, antes de la utilizaci6n 
de uno de sus elementos, pero es 
conveniente dimensionarlas al prin- 
cipio. 
Para contestar a la segunda pre- 
gunta veamos el programa III. 

Programa tres 

Es un programa que de momento 
la 0nica aplicaci6n que tiene es con- 
testarle a su pregunta. 



En las lineas 20 y 60 dimensiona- 
mos de dos maneras diferentes dos 
matrices que tienen el mismo hom- 
bre. Si ejecutamos este programa 
nos aparecer6 en pantalla el siguien- 
te mensaje: 
Array already dimensioned in 60 
que nos indica que una de las tablas 
declaradas en una orden DIM ya ha 
sido dimensionada anteriormente. 
Sobre todo si utilizamos listas gran- 
des, puede darse el caso que nece- 
sitemos el espacio reservado a una 
de elias, cuyos elementos ya han si- 
do utilizados, para otra que vamos 
a usar a partir de un determinado 
momento. Pero hemos visto que si la 
redimensionamos, el Amstrad nos 
dar6 un mensaje de error. /,C6mo 
solucionamos la papeleta? 
Pruebe a meter en el programa III 
la siguiente linea: 

50 ERASE conjunto 

Si ejecuta ahora el programa ve- 
r6 que se le ha arreglado su proble- 
ma y que su ordenador no le rega- 
6ar6 con un mensaje de error. 
/,Qu hace esta nueva Iinea que 
hemos aadido? Es muy sencillo. Es- 
ta nueva orden borra el contenido 
de las tablas que especificamos a 
continuaci6n y libera la memoria del 
espacio que estaba ocupado por 
elias. De esta forma podr6 volver a 
dimensionarlas a su gusto sin gastar 
nueva memoria ni usar variables 
nuevas. Pero iojo!, no se olvide que 
esta orden borra todos los conteni- 
dos anteriores de la matriz no sea 
ue vayamos a tener un fatal acci- 
ente)). 
Para terminar se nos ocurre pro- 
ponerle una pequefia tarea)) Se 
acuerdan de las votaciones para ele- 
gir la mejor revista inform6tica. 
Qu le parecieron los resultados? 
Nuestra idea es que, para ver si les 
ha quedado suficientemente clara to- 
da esta filosofia sobre tablas, matri- 
ces arrays o como queramos Ilamar 
a los conjuntos de variables con su- 
bindices, hagan las modificaciones 
oportunas al programa para que sea 
capaz de hacer un recuento de vo- 
tos semejante al anterior, pero con 
la diferencia de que chora se aade 
una pregunta m6s al cuestionario: 
/,Es usted usuario de Amstrad o de 
Spectrum? 
Si es de Amstrad contestar6 con 
un 1, si es de Spectrum con un 2. 
Le sugerimos que defina una ma- 
triz de dos dimensiones en la que el 
primer subindice indique la revista 

elegida y el segundo el tipo de usua- 
rio. 
Es decir, en la representaci6n bi- 
dimensional las filas sedan los nOme- 
ros correspondientes a cada revista 
y las columnas sedan los de cada 
usuario. Por tanto, los subindices se- 
dan respectivamente 4 y 2. 
No se olvide poner la marca de fi- 
nal de respuestas (--1) en las lineas 
de DATAS y que cada respuesta es- 
t6 ahora compuesta por dos n0me- 
ros. Vigile la cantidad de cifras que 
hay en estas lineas para que el n0- 

mero de datos que leemos sea co- 
rrecto. 
Cuando ya Io tenga comp6relo 
con el resultado que nosotros le pro- 
ponemos como programa IV y vea 
los puntos comunes. 

Programa cuatro 
Bueno, no quer.emos atosigarle 
m6s. Practique.' 

PROGR , M, S 

I0 REM PROGRAMA I 
20 CLS 
30 INPLIT "NUMERO IE FILAS: ",filas 
41" INPUT "NUMERO DE COLUMNAS: ",col 
',0 DIM conunto(fila,rolumnas 
60 REM DAR VA ORES A  OS EL FMENTOS 
70 PRINT 
0 FOR i=I T ilas 
90 FOR =I TO columnas 
iO( PRINT"FILA:";i;", COLUMNA:"; 
I!0 INPUT valor 
12n conunto(i, ) valoF 
[0 NEXT  
14 NEXT i 
lSn RFM CONOCER AI BUN VAOR 
160 WHILE condicion-O 
170 PRINT 
I0 PRINT "VA! OR DE UN ELEMENTO" 
tgo NPIIT "FII_A: ",fla 
200 INPUT "COLUMNA: ".columna 
210 numero=con unto (f i l a,col umna) 
220 PRINT "conjunto( ":{ila'', ";colum 
?30 WEND 

10 REM F'RQGrAMA 
30 REM DIMENSIONADO DF I AS MATRICES 
4c INF4IT "NIJMER] DE ALUMNOS: "alum 
50 INPIIT "NUMFR[1 DE ASIGNATURAS: 
60 DIM nomhre(alumnos) 
70 DIM nts(alumnos,asignaturas) 
8( REM NTRODUECON DE DATOS 
9r OR i= T a1mncs 
I OA CI S 
$A INPUT "NOM[RE: 
120 FOR  I TO asinaturas 
130 PRINT "NOTA ASGNATURA NUMERO" 
40 INPUT 
150 F notas($. )5 THEW notas(O.) 
6r NEXT J 
170 NEXT  
18 REM CONTAB[I 7R AF'ROBAOOS 
190 PRINT 
200 pR[NT"NUMERO DE AF'ROBADOS POR A 
S I GNATURA. " 
20 FOR i-1 TO signaturas 
220 PRINT"ASIGNATURA NUMERO" 
a] umnos-not as (0, i ) 
230 NEXT i 
240 REM BUSOUEDA 
?50 PR I NT 
260 INPUT "ALUMNO A BUSCAR: ".nombr 
e$ 
270 WHIL mhre$ (indl ce)<nombr e$ 

280 indice=i ndic+! 
290 WEND 
00 FOR  I TO asqnat,ras 
Z-tO PRIMT "NOTA A..IGNATURA NUMERO" 
:":"nota (ndce,i 
32C NFXT 

I0 REM F'ROGRAMA If! 
20 DIM coniunto(IS,6) 
30 con junto(8,5) 2345 
40 PRINT con)unto(8,5) 
60 DIM coIiunto(30,90) 
70 FOR n= TO I0< 
80 INPUT a 
90 conjunto(n. I 
00 NEXT n 

10 REM PROBRAMA IV 
20 DIM votos(4,2) 
30 CLS 
40 REM RECUENTO DE VOTOS 
50 READ revistausuario 
60 WHILE revista'(>-1 
)+I 
80 votos(revistausuar io)=otns(rev 
ista,usuario) 
90 READ revista,usuario 
100 WEND 
110 REM IMPRESION DE RESULTADOS 
120 PRINT 
130 PRINT"MICROHOBBY:" 
140 PRINT TAB(6);"USUARIO AMSTRAD-" 
votos(l1)"VOTOS" 
150 PRINT TAB(6}"USUARIO SPECTRUM- 
"|votos(1,2)|"VOTOS" 
160 PRINT"MICROHOBBY-ASSETTE:" 
170 PRINT TAB(&)"USUARIO AMSTRAD-" 
:votos(2l):"VOTOS" 
180 PRINT TAB(&)"USUARIO SPECTRIIM- 
":votos(22)"VOTOS" 
190 PRINT"MICROHOBBY-AMSTRAD:" 
200 PRINT"USUARIO AMSTRAD-":votos(3 
,1)"VOTOS" 
210 PRINT TAB(6)"USUARIO SPECTRUM- 
";votos(3,2);"VOTOS" 
220 PRINT"MICROMANIA:" 
230 PRINT TAB(6)"USUARIO AMSTRAD-" 
:votos(4,!):"VOTOS" 
240 PRINT TA(b!"USUARIO SPECTRUM- 
"votos(42)"VOTOS" 
250 PRINT 
260 PRINT"TOTAL VOTOS FMITIDOS:";v 
tos(O.1)÷votosO2) 
270 DATA 
2,3I,123,2,4,122s3I42I- 
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T' BILIDAD 

0 

Este programa, creado par nuestro lector 
Oaniel Palomo, pretende resolver, y de 
hecho resuelve, el siempre rnolesto 
problema de Ilevar las cuentas (alias 
contabilidad) de nuestra casa, 
permitindonos Ilevar un exacto control 

de nuestros ingresos.y ga.stos, resmenes 
anuales mncludos. 

ste programa, no 
implementa los cientos de funciones 
de las contabilidades profesionales, 
ni posee un sistema indexado de rio 
cheros, ni Ileva c6digo m6quina, hi... 
falta que le hace. 
El Amstrad Basic es Io suficien- 
temente potente para permitirnos 
crear una aplicaci6n que tan s61o 
pretende cubrir las necesidades de la 
gesti6n de un hogar. 
Contabilidad dom6stica est pen- 
sado para manejar datos de una for- 
ma muy consistente, y esto implica el 
recurrir a ficheros (secuenciales, de 
los sencil#tos) para atesorar la infor- 
maci6n y poder rehusarla cuando 
haga falta. 
Esto quiere decir que el programa 
funcionar6 perfectamente en cual- 
quier Amstrad, con o sin disco, pe- 
ro creemos no exagerar mucho al 
decir que un disco, si no es impres- 
cindible, es altamente recomenda- 
ble. Recorrerse toda la cinta del cas- 
sette buscando los datos del mes de 
julia del 85 puede ser bastante des- 
agradable. 
Contabilidad dom6stica se rige par 
una estructura jer6rquica de menOs, 
es decir, existe un menO principal de 
opciones, del cual, una vez elegida 
cualquiera de elias, pasamos a un 
menL secundario o a la propia intro- 
ducci6n de datos. 

I0 //ctooeY AMSTRAD 

HES DESUES (E;lCTF.R) 

Las opciones del menO principal 
son las que cabria esperar de un pro- 
grama de este tipo: [E]ntrar datos, 
[M]odificarlos, [O]rabar y [C]argar 
de disco, [R]esumen anual, etc. 
Como ya se habrn imaginado, se 
accede a una opci6n pulsando la ini- 
cial entre corchetes. 
Aunque el programa en todo mo- 
mento suministra informaci6n en 
pantalla suficiente, vamos a examio 
nar con cierto detalle la opci6n de 
[E]ntrar datos. 
AI introducirnos en ella, Io prime- 
ro que se observa es un submenO con 
los doce meses del ao: tenemos que 
elegir, moviendo el cursor, en el cual 
queremos anotar nuestras cuentas. 



S erie Oro 

A su vez, despu6s de escogido el 
mes pertinente, hay que introducir 
dos tipos de datos m6s: Io que po- 
driamos Ilamar saldo, o sea, el dine- 
ro que tenemos en ese mes en el Ban- 
co, en Caja, etc., y luego las partio 
das de gastos dom6sticas, como luz, 
gas, agua, coche, etc. 
En fin, un programa no excesivao 
mente largo, elegantemente prograo 
mado, sencillo de usar y que cumple 
perfectamente su funci6n. 

70 Trampa para capturar 
errores. 
80 -170 Inicializaci6n de 
matrices, definici6n de 
colores y ventanas. 
170 -200 Meng principal. 
210 -230 Bucle principal. 
240 -700 Rutina general de 
introducci6n y 
verificaci6n de datos. 
720 -840 Grabar fichero de datos 
en cinta/disco. 
870 -1020 Cargar fichero de datos 
de cinta/disco. 
1040-1070 Modificaci6n de datos. 
1090-1130 Fin del programa. 
1150-1280 Gastos a cargo de 
Banco o Caja. 
1300-1370 Impresi6n de ingresos. 
1390-1520 Impresi6n de gastos. 
1540-1720 Rutina de elecci6n. 
1740-2030 Resumen anual. 
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I 0 REM 
20 REM 
30 REM 
40 REM 

380 GOSUB 200(: 
390 GOSUB 1320 
400 LOCATE 18,2:PRINT c$:& OCATF 
308:GOSUB 1230:c=e:e=O:PRINT #1.,US 
ING u$;c 
410 LOCATE 17,2:PRINT b$:L.OCATE #I, 
30 10:GOSUB 123(]:b=e:e=Q:PRINT #1.,U 

50 REM pot Daniel Palomo 
60 REM 
70 ON ERROR GOTO 2040 
80 MODE 1:INK I24:F'EN 1:INK O,I:PA 
PER 0 
90 CLS:CL.EAR:RESTORE:PEN I:PAPER 
100 i$=INKEY$:u$="########":DIM q$( 
12):FOR =I TO 12:READ q$():NEXT:D 
IM a(24) 
II0 READ su$,v$i$.b$c$g$ag$lu$ 
,tl$,ga$,ce$,ve$,au$dr$es$im$ 
120 DATA ENERO.FEBREROMARZOABRIL, 
MAYO31JNIO,JL;LIOAGOSTO,SEPTIEMBRE 
OCTUBRE.NOV;EMBREDICIEMBRE 
130 DATA SUELDO,VARIOSINGRESOSBAN 
COCAAGASTOSAGUAI.UZ,TELEFONOGA 
S.CASA.VESTUARIOAUTOMOVILMEDICOE 
STUDIOS,IMPREVISTOS 
140 WINDOW 1,40,2325:F'EN 1 
50 WINDOW #1,.,40,5,21:PEN #Ii 
160 WINDOW #2,1,40, I,3:PEN #2I 
170 INK .?&: INK 2. tO:PAPER #1,2:PA 
PER #2,2:PAPER 2:CLS #1:CLS #2:CLS 
180 LOCATE #2,5,1:PRINT #2,"[C]ARGA 
R":LOCATE #2,20.1:PRINT #2"[A]BAND 
ONAR" 
190  OCATE #2.5,2:PRINT #2,"[G]RABA 
R":LOCATE #2,202:PRINT#2"[M]ODIFI 
CACION" 
?00 LOCATE #2,5,3:PRINT #2"[E]NTRA 
DAS":LOCATE #2,20,3:PRINT #2"[R]ES 
JMEN ANUAL" 
210 GOSUB 1610 
220 ON z GOSUB 240, 740, 880 1760IC)6 
O, 1090 
230 z=O:GOTO 210 
?40 CLS 
250 OCATE 6I:PRINT"UTILIZA E CUR 
SOR PARA ELEGIR" 
260 LOCATE I¢)3:PRINT"MES DESPUES 
ENTER>" 
270 FOR N=I TO 12:LOCATE #I15n+3: 
PRINT #Iq$(n):NEXT 
280 s=4:i OCATE #l,13.s:PEN #1.:PRI 
NT#1 CHR$ (243) 
290 WHILE INKEY(18)=-I 
300 IF INKEY (2) =(') THEN s=s+I:LOCATE 
#I, I,s-I:PEN #1.2:PRINT#1 .... :LOC 
ATE #1.13,s:PEN #13F'RINT#1,CHR$(2 
43) 
310 IF INKEY ((b) =O THEN s=s-l:I OCATE 
#I 13,smI:F'EN #i  2:F'RINT#1 .... :LOC 
ATE #1,13s:PEN #1,3:PRINT#1,CHR$(2 
43) 
320 IF s>15 THEN s=4:LOCATE #i13I 
6:PEN #1,2:PRINT#1" ":LOCATE #I13 
,s:PEN #13:PRINT#1,CHR$(243) 
330 IF s<4 THEN s=IS:LOCATE #I,133 
:PEN #12:PRINT#1," ":LOCATE #I13, 
s:PEN #13:PRINT#1,CHR$(243) 
340 FOR n=l TO 200:NEXT:WEND 
350 s=s-3:CLS:CLS #I 
360 WHILE INKEY$<I .... :WEND 
370 LOCATE 5,2:PRINT"UTILITA SOi.O E 
L TECLAO0 NUMERICO":FOR N=I TO 2000 
: NEXT: CL.S 

SING 
420 lOCATE 17,2:PRINT su$:L.OCATE 
30 12:GOSIJB 1230:su=e:e=0:PRINT #i 
,USING u$su 
430 LOCATE 17,2:PRINT v$:[OCATE #I, 
30I4:GOSUB 1230:v=e:e=O:PRINT #1,U 
SING u$v 
440 CLS:LOCATF 13?:PRINT"CORRECTO 
(S/N)":GOSUB 1270:IF INKEY(46)=O TH 
EN CLS:GOTO 390 
450 GOSUB 2020 
460 CLS #1:GOSLIB 40 
470 CLS:LOCATE 182:PRINT ga$:LOCAT 
E #130,6:GOSUB 11TO:IF r=] THEN ga 
=e:e=O:PRINT#1USING u$;ga ELSE gal 
=e:e=O:PRINT#1,USING 
480 LOCATE 18,2:PRINT Iu$:LOCATE #i 
,30,7:GOSUB 1170:IF r=l THEN ]u=e:e 
=O:PRINT#1,USING u$;lu ELSE lul=e:e 
=O:PRINT#1,USING u$;lul 
490 LOCATE 18,2:PRINT ag$:LOCATE #i 
,308:GOSUB 11TO:IF r:l THEN ag=e:e 
=O:PRINT #1USING u$ag ELSE agl=e: 
e=O:PRINT #1USING u$agl 
500 LOCATE 182:PRINT a$:LOCATE 
,309:GOSUB 1170:IF r=l THEN ca=e:e 
=O:PRINT #1,USING uS;ca ELSE a1=e: 
e=O:PRINT #1,USING u$;cal 
510 LOCATE 172:PRINT dr$:LOCATE #I 
,30,10:GOSUB 11TO:IF r=l THEN dr=e: 
e=O:PRINT #1USING uS;dr ELSE drl=e 
:e=O:PRINT #1USING u$;drl 
520 LOCATE 162:PRINT tI$:LOCATE #i 
,30,11:GOSUB ITO:IF r=l THEN tl=e: 
e=O:PRINT #1,USING u$;tl ELSE tll=e 
:e=O:PRINT #1,USING u$;tll 
530 LOCATE 162:PRINT es$:LOCATE #i 
,30,2:GOSUB 11TO:IF r=l THEN es=e: 
e=O:PRINT #1USING u$;es EL.SE esl=e 
:e=O:PRINT #1,USING u$;esl 
540 LOCATE 15,2:PRINT ve$:kOCATE #i 
,30,13:GOSUB 11TO:IF r=. THEN ve=e: 
e=O:PRINT #1USING u$;ve ELSE vel=e 
:e=O:PRINT #1.USING u$;.vel 
550 LOCATE 15,2:PRINT au$:LOCATE #I 
,30I4:GOSUB I70:IF r=l THEN au=e: 
e=O:PRINT #1USING u$;au ELSE aul=e 
:e=O:PRINT #1,USING u$;aul 
560 LOCATE 4.2:PRINT m$:LOCATF #I 
,30,5:GOSUB i70: IF r= THEN ira=e: 
e=O:PRINT #1,USING u$;im ELSE iml=e 
:e=O:PRINT #1USING u$;iml 
570 GOSUB 1560 
580 CLS:LOCATE I,2:PRINT"CORRECTO 
(S/N)":GOSUB 1270: IF INKEY (46) =O TH 
EN CLS:GOTO 460 
590 WHILE INKEY$<> .... :WEND 
600 b=b+su-(agl+lul+tl 1+gal+al+vel 
+aul+dr l+esl+iml) 
610 c=c+iv- (ag+lu+t I +ga+ca+ve+au+dr 
+es+im) 
620 IF b<O THEN CLS:LOCATE 9.1:PRIN 
T"NO HAY FONDOS EN EL BANCO":LOCATE 
5,3:PRINT"PULSA UNA TECLA PARA CON 
TINUAR":GOSUB 1270 



60 IF c<0 THEN CLS:LOCATE 9,1:PRIN 
T"NO HAY FONDOS EN LA CAOA":LOCATE 
5,3:PRINT"PULSA UNA TECLA F'ARA CONT 
INUAR ":GOSU8 1270 
640 CLS:LOCATE 12, I:F'RINT"M:VUELVE 
AL MENU" : LOCATE 11,2:F'RINT"G:VISUAL 
IZA GASTOS":I.OCATE 10,._'.:PRINT"I:VIS 
UALI 7A INGRESOS" 
650 IF INKEY (38) =0 THEN 690 
660 IF INKEY<52)=O THEN CLS #1:GOSU 
B 1410:GOSUB 156() 
670 IF INKEY (35) =O THEN CLS #1:GOSU 
B 1320 
680 GOTO 650 
690 WHILE INKEY$<>"":WEND 
700 RETURN 
710 ' 

Seri Oro 

990 IF INKEY <35) =0 THEN CLS #1:GOSU 
B 1320 

1000 GOTO 970 
1010 WHILE INKEY$<>"":WEND 
1020 CLOSEIN:RETURN 
1030 ' 
1040 REM MODIFICAR 
1050 ' 
1060 CLS:LOCATE 4,2:PRINT"TECLEE TO 

720 REM GRABAR 
730 ' 
740 CLS:LOCATE 10,2:PRINT"GRABANDO: 
"q$[s]:q$[s]=LEFT$(q$[s],7):OPENO 
UT q$<s) 
750 a[12]=ve:a[13]=au:a[14]=im:a[15 
]=ga1:a[16]=lu1:a[17]=ag1:a[18]=ca1 
:a[19]=drl:a[20]=t11:a[21]=es1:a[22 
]=ve1:a[23]=au1:a[24]=iml 
760 a[1]=b:a[2]=c:a[3]=su:a[4]=v:a[ 
5]=ga:a[6]=lu:a[7]=ag:a[8]=ca:a[9]= 
dr:a[10]=tl:a[11]=es 
770 FOR n=l TO 24:WRITE #9a[n]:NEX 
T 
780 a[12]=ve:a[13]=au:a[14]=im:a[15 
]=ga1:a[16]=lu1:a[17]=ag1:a[18]=cal 
:a[19]=dr1:a[20]=t11:a[21]=es1:a[22 
]=ve1:a[23]=au1:a[24]=im1 
790 b=a[1]:c=a[2]:su=a[3]:v=a[4]:ga 
=a[5]:lu=a[6]:ag=a[7]:ca=a[8]:dr=a[ 
9]:tl=a[10]:es=a[11] 
800 CLOSEOUT:CLS:LOCATE IO2:PRINT" 
GRABACION TERMINADA" 
810 LOCATE 12,3:F'RINT"M:VUELVE AL M 
ENU" 
820 WHILE INKEY(38)=-1:WEND 
830 WHILE INKEY$<> .... :WEND 
840 RETURN 
850' 

DAS LAS CIFRAS DE NUEVO":LOCATE 12, 
3:PRINT"PULSE UNA TECLA 
1070 GOSUB 1270:CLS:GOSUB 390 
1080 ' 
1090 REM ABANDONAR 
1100  
1110 CLS #1:CLS:LOCATE #1,10,7:PRIN 
T#1,"SI ABANDONA PERDERA":LOCATE #I 
I28:PRINT#1,"TODOS LOS DATOS" 
1120 LOCATE #1,11,9:PRINT#1"CONFIR 
ME PULSANDO":LOCATE #1,18IO:PRINT# 
I,"[S]" 
1130 GOSUB 1270:IF INKEY(60)=0 THEN 
CLS:NEW ELSE RETURN 
1140 ' 
1150 REM ENTRADAS B/C 
1160  
1170 LOCATE 73:PRINT"CARGO A BANCO 
0 CAJA (B/C) 
1180 IF INKEY(54)=O THEN R=O:GOTO 1 
210 
1190 IF INKE(62)=O THEN R=I ELSE G 
OTO 1180 
1200 PEN 2:LOCATE 73:PRINT STRINGS 
(26," "):PEN 1 
1210 WHILE INKEY$<} ..... :WFND 
1220 PEN 2:LOCATE 6,3:PRINT STRINGS 
(30," ") 

860 REM CARGAR 
870  
880 CLS:LOCATE II,I:PRINT"NOMBRE DE 
L F!CHERO"LOCATE 132:PR!NT"MAX. 8 
LETRAS" 
890 CLS #1:WINDOW SWAP 0,1:CAT:WIND 
OW SWAP 1,0 
900 LOCATE 153:INF'UT n$:IF [EN(N$) 
>8 THEN 880 
910 OPENIN n$:s=O:q$[s]=n$ 
920 FOR n=l TO 24:INPUT #9a[n]:NEX 
T 
930 ve=a[12]:au=a[13]:im=a[14]:ga1= 
a[15]:lu1=a[16]:agl=a[17]:cal=a[18] 
:dr1=a[19]:t11=a[20]:esl=a[21]:ve1= 
a[22]:au1=a[23]:iml=a[24] 
940 b=a[1]:c=a[2]:su=a[3]:v=a[4]:ga 
=a[5]:lu=a[6]:ag=a[7]:ca=a[8]:dr=a[ 
9]:tl=a[10]:es=a[11] 
950 CLS #1:GOSUB 1410:GOSUB 1560 
960 CLS:LOCATE 12,1:PRINT"M:VUELVE 
AL MENU"'LOCATE 11,2:PRINT"G:VISUAL 
IZA GASTOS":LOCATE 103:PRINT"I:VIS 
UALIZA INGRESOS" 
970 IF INKEY(38)=O THEN 1010 
980 IF INKEY(52)=O THEN CLS #1:GOSU 
B 1410:GOSUB 1580 

1230 PEN 1:LOCATE 15,1:PRIN "INTRO 
DUCE" 
1240 LOCATE 15,3:INPUT e:e$=STR$(e) 
:j=LEN(e$I:IF j>8 THEN LOCATE 15,3: 
PRINT STRING$(21," "):GOTO 1240 
1250 PEN 2=LOCATE !5.!F'RINT STRING 
$(10" "):PEN 
1260 CLS:RETURN 
1270 WHILE INKEY$="":WEND 
1280 RETURN 
1290 
1300 REM INGRESOS 
1310 ' 
1320 PEN #13:I=(10-LEN(q$(sl))/2:L 
OCATE #1,15,2:F'RINT#1SPC(IIQ$(s):L 
OCATE #1I65:PRINT 
1330 PEN #1,1:LOCATE #1,108:PRINT 
#1,c$:LOCATE #1,30,8:PRINT #1,USING 
u$;c 
1340 LOCATE #1,10,10:PRINT #1,b$:LO 
CATE #1,30IO:PRINT #1,USING u$b 
1350 LOCATE #110,12:PRINT #1,su$:L 
OCATE #13012:PRINT #1,USING u$;su 
1360 LOCATE #1IO,14:F'RINT #1,v$:LO 
CATE #1,30,14:PRINT #IUSING u$;v 
1370 RETURN 
1380 ' 
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1390 REM GASTOS 
1400 ' 
1410 PEN #13:I=(10-LEN(q$(s)))/2:L 
OCATE #I, 15,2:PRINT#1.SPC(1)Q$(s) :L 
OCATE #1,17,4:PRINT #1,g$.'PEN 
1420 LOCATE #I, 10,6:PRINT#1,ga$:LOC 
ATE #1,30,6:PRINT#1,USING u$ga+gal 
1430 LOCATE #I, IO,7:PRINT#1, Iu$:LOC 
ATE #1,30,7:PRINT#1.USING u$;lu+lul 
1440 LOCATE #i, 10,8:PRINT#1,ag$:LOC 
ATE #1,30,8:PRINT#1,USING u$;ag+agl 
1450 LOCATE #I, 10,9:PRINT#1,Ea$:LOC 
ATE #1•30,9:PRINT#1,USING u$;Ea+al 
1460 LOCATE #I, I0, 10:PRINT#1dr$:LO 
{ATE #1,30, 10:PRINT#1,USING u$;dr+d 
rl 
1470 LOCATE #I, 10, II:PRINT#1,tI$:LO 
CATE #1,30,11:PRINT#1,USING u$;tl+t 
II 
148{} LOCATE #i, I0, 12:PRINT#1,es$:LO 
CATE #1,3C) 12:PRINT#1,USING u$;es+e 
sl 
1490 LOCATE #I, 10, 13:PRINT#1,ve$:LO 
CATE #1,30,13:F'RINT#1,USING u$;ve+v 
el 
1500 lOCATE #i, 10, 14:PRINT#1,au$:LO 
CATE #1,30,14:PRINT#1,USING u$;au+a 
151(} LOCATE #I, 10, 15:PRINT#1im$:LO 
CATE #1,30,15:PRINT#1,USING u$;im+i 
ml 
152(} RETURN 
1530 ' 
154(} REM OPCIONES 
1550 • 
1560 a[ 12]=re: a[ 13]=au: a[ 14] =im:a[l 
5]=gal : a[ 16]=1u I : a[ 17 ]=ag 1 : a[ 18]=ca 
l:a[19]=drl:a[20]=tl 1:a[21]=esl:a[2 
2]=vel : a[23]=aul : a[24]=iml 
157(} a[l]=b:a[2]=c:a[3]=su:a[4] =v'.a 
[5]=ga: a[6]=l u: a[ 7 ]=ag: a[8]=ca: a[9] 
=dr:a[10]=tl'.a[ll]=es 
1580 FOR n=5 TO 14: IF a[n]=O AND a[ 
lO+n3r>O THEN LOCATE #128,n+I:F'RIN 
T #i, "b" 
1590 NEXT 
160(} RETURN 
1610 CLS:LOCATE 6,1:PRINT"PARA ELEG 
IR OPCION PULSA LA" 
1620 LOCATE 6,3:PRINT"LETRA METIDA 
ENTRE CORCHETES" 

163(} CLS #1:WHILE INKEY$="" 
1640 IF INKEY (58) =O THEN z=l 
1650 IF INKEY (52) =O THEN z=2 
1660 IF INKEY (62) =O THEN z=3 
1670 IF INKEY(50)=0 THEN z=4 
1680 IF INKEY (38) =0 THEN z=5 
1690 IF INKEY(68)=O THEN z=6 
1700 WEND 
1710 IF z>7 OR z<l THEN 1630 
1720 RETURN 
1730 ' 
1740 REM RESUMEN 
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1750 " 
1760 CLS:LOCATE 5, I:F'RINT"INTRODUZC 
A EL DISCO QUE CONTENGA':LOCATE 7,2 
:PRINT"LOS FICHEROS DE LOS MESES":L 
OCATE 8,3:PRINT"DESPUES PULSE UNA T 
ECLA":GOSUB 1270 
1770 CLS:LOCATE ?I:F'RINT"ESTAN TOD 
OS LOS MESES EN ESTE D ISCO?"'.LOCATE 
17,2:F'RINT" (S/N) " 
1780 WINDOW SWAP O.I:CAT:WINDOW SWA 
P 1,0 
1790 IF INKEY(46)=O THEN RETURN 
1800 IF INKEY (60) =O THEN 182(:) 
1810 GOTO 1790 
1820 CLS:LOCATE II•2:F'RINT"CARGANDO 
MES DE : " 
1830 FOR k=l TO 12:LOCATE 153:F'RIN 
T Q$[k]; .... : Q$[k]=LEFT$ (Q$[k],7 
) :OPENIN Q$[k] 
1840 FOR n=l TO 24:INPUT #9,a[n]:NE 
XT 
1850 ve=ve+a[12]:au=aua[13]:im=im+ 
a[ 14] : gal =gal+a[ 15] : i ul=l ul+a[ 16] : a 
g l=ag l+a[ 17] : ca1=cal+a[ 18] : dr l=dr I+ 
a[19]:tll=tll+a[20]..esl=esl+a[21]:v 
el=vel+a[22]', aul=aul+a[?3] : im1=im1+ 
a[24] 
1860 L=b+a[ 1 ] : c=c+aI 2] : SU=SL+a[ 3] : V 
=v+a[ 4 ] : ga=ga ea[5] : 1 u=l u+a[6] : ag=ag 
+a[7] : ca=ca+a[8]', dr=dra[9] : t I =t I +a 
[ 10] : es=es+a[ 1 i ] 
1870 CLOSEIN:NEXT 
1880 s=O:q$[C)]="RESUMEN" 
1890 CLS'.LOCATE 12,2:F'RINT"M:VUELVE 
AL MENU":FOR N=I TO 300(:}:NEXT 
1900 CLS:LOCATE 13I:F'RINT"S:GRABA 
RESUMEN":LOCATE II:2:PRINT"G:VISUAL 
IZA GASTOS":LOCATE 10• 3: PRINT"I:VIS 
UALI ZA I NGRESOS" 
191{) IF INKEY(60)=O THEN 1960 
1920 IF INKEY (38) =O THEN RETURN 
1930 IF INKEY (52) =O THEN CLS #1:GOS 
UB 1410 
1940 IF INKEY (35) =O THEN CLS #1".GOS 
UB 1320 
195(} GOTO 1910 
1960 CLEAR INPUT 
!970 CLS:LOCATE !3.1"F'.'.!NT"CON QUE 
NOMBRE":LOCATE 13,2:PRINT"(MAX. 8 L 
ETRAS ) " 1980 LOCATE 16•3".INPUT n$:s=O:q$[s] 
=n$: GOSUB 720 
1990 RETURN 
2000 b=C):c=0:v=0:su=0 
2010 RETURN 
2020 ga=O:gal=O".lu=O:lul=C):ag=O:agl 
=0". ca=C):Eal=O:dr=O:dr1=O:tl=O:tl I=0 
: es=O: esl=O: re=O: vel=O: aL=O: aul=r): i 
m=O: i ml=O 
2030 RETURN 
2040 CLS:CLS #1:LOCATE II,2:PRINT"H 
A HABIDO UN ERROR":FOR N=I TO 1000: 
NEXT 
2050 CLS:LOCATE 13,2:F'RINT"VUELVO A 
L MENU":FOR N=I TO 200{):NEXT 
2060 RESUME 220 
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Una de las caracterlsticas del Amstrad que le dotan, de tara a 
los usuorios, de m6s potencia y popularidad, es sin duda alguna 
su unidad de discos integrada, que le c.a.pacita para almacenar 
y recuperar r6pidamente grandes cantldades de informaci6n. 

s discos propia- 
mente dichos son una pequefia ma- 
ravilla tecnol6gica, que requieren un 
cierto cuidado y atenci6n para que 
puedan seguir desempefiando su im- 
portante misi6n durante mucho tiempo. 
Casi todas las personas que hayan 
tratado con estos artefactos saben 
m6s o menos las normas a seguir pa- 
ra el mantenimiento en perfecto es- 
tado de sus diskettes, pero Io que ha- 
die sabe es el grupo de medidas a to- 
mar para destruirlos completamen- 
te y sin remisi6n. 
AMSTRAD Semanal, en su af6n 
de huir de los caminos trillados, 
enuncia pot primera vez en la histo- 
ria del periodismo inform6tico ((La 
Teorla General del Aniquilamiento 
Selectivo de los Discos)), creada por 
el genial matem6tico Gaffe McNa- 
zas, del MUTIS (Massachusets Tech- 
nological Institute). 
En el momento de estremecer al 
mundo de la informaci6n con los pos- 
tulados de su teoria, McNazas con- 
taba en su haber con el increible rg- 
cord de pulverizar completamente 
las 5 bases de datos relacionales de 
mcxima seguridad del MUTIS en un 
plazo no superior a dos meses. 
Por primera vez en toda la histo- 
ria del Instituto Tecnol6gico, los 
miembros del personal cientifico tu- 
vieron que recurrir a la palabra ha- 
blada para saludarse (y como son 
mudos, ya me contar6s), y al papel 
y a la pluma de ganso para escribir 
los informes: las computadoras ha- 
bian callado. 
Como enrgica protesta, el analis- 
ta de sistemas del MUTIS se suicid6 
dispar6ndose un boligrafo BIC a la 
cabeza. 
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Insensible a este tipo de infantiles 
criticas, McNazas observ6 una par- 
ticularidad muy importante de su di- 
latada experiencia de destructor de 
discos, responsable en gran parte de 
la inmensa popularidad que alcan- 
z6 su teoria entre el personal infor- 
m6tico: ni uno solo de sus propios 
diskettes se habia visto afectado por 
la aplicaci6n de sus reglas, ni uno so- 
lo de ellos habia perdido tan siquie- 
ra un byte de informaci6n. 
Gaffe McNazas comprendi6 que 
habia descubierto la Aniquilaci6n Se- 
lectiva de Discos, es decir, era capaz 
de destruir exclusivamente los discos 
de los dem6s. 
Como toda teoria cientifica, la Ani- 
quilaci6n Selectiva se aplica a multi- 
tud de campos y parte de una serie 
de hip6tesis de trabajo, de axiomas, 
aplicables casi con plena certeza a 
cada uno de ellos. 
En el caso de la inform6tica do- 
mstica, se parte de la hip6tesis de 
que nuestro amigo m6s intimo ha co- 
metido el lamentable error de con- 
fiarnos sus discos claves en los que 
almacena informaci6n vital, como 
por ejemplo, una lista de telfonos 
de ya sabes quin. 
Para mayor simplicidad, aplicare- 
mos el Fent61ogo que resume la teo- 
ria de McNazas a este modelo: 
1 o Principio de las Condiciones Li- 
mite: se confundir6n los diskettes con 
los tranchettes y se introducir6n en el 
horno a 50 grados centigrados den- 
tro de una hamburguesa, ofrecin- 
doselas acto seguido a nuestro ami- 
go como muestra del mayor aprecio. 
Corolario: al morderla, encima 
perder6 un diente o m6s. 
Nota: incredulidad cuando se que- 
je de que saben a pl6stico. 
2. Axioma de la Variabilidad Si- 
tuacional: debido a un genuino cru- 
ce de cables, el disco maestro e 
irremplazable se colocar6 cuidado- 



, mstr, - 
vo,' ncio 

samente en la cisterna del inodoro, 
a guisa de pastilla desinfectante, con 
idea de que tifia primorosamente de 
azul las aguas de tan imprescindible 
aparato. 
,3. Ley del Encadenamiento L6gi- 
co: en el momento de desesperaci6n 
ue sucede inmediatamente despus 
ever la apariencia de nuestra es- 
posa reci6n levantada de la cama, 
golpearemos con un glorioso direc- 
to el horrible jarr6n de porcelana, 
regalo de nuestra suegra, en el cual 
previsoramente habiamos almacena- 
do los discos para ponerlos fuera del 
alcance de los nios. Los discos que- 
dar6n completamente destruidos, 
pero el jarr6n, ni un rasgufio. Llanto 
y crujir de rulos como tel6n de fondo. 
4. Teoria del Almacenaje Aleato- 
rio: bastar6 colocar los discos enci- 
ma de nuestra mesa de trabajo y es- 
perar a que transcurra el tiempo, 
dando permiso a nuestra familia y/o 
sefiora de la limpieza para que la 
<<ordene un poco>>. Desaparecer6n 
sin dejar rastro. 
5. Postulado del EstOpido Desco- 
nocido: en el improbable caso de 
que ninguno de los cuatro principios 
anteriores encuentre aplicaci6n en 
un plazo de tiempo razonable, no 
hay que preocuparse: cualquier idio- 
ta destruir6 los discos en las condi- 
ciones m6s inverosimiles y con la mis- 
ma eficacia que nosotros. 
La Teoria General de Aniquila- 
miento Selectivo de Discos, debido a 
su complejidad matem6tica, queda 
m6s allc del alcance de este articu- 
Io, pero nos Ilena de gozo el saber 
que McNazas y sus discipulos siguen 
trabajando en su perfeccionamiento 
y desarrollo en el exilio pagado por 
sus compafieros de trabajo del MU- 
TIS. Dentro de muy poco tiempo, no 
habr6 un solo disco que pueda con- 
siderarse a salvo. 
IICEOHOBBY AMSTRAD 17 
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El intrpido explorador se 
adentra en la selva 
amaz6nica, en busca del 
secreto m6gico del hechicero. 
Antes de Ilegar a la oculta 
cueva que Io alberga, tendr6 
que descubrir los recnditos 
senderos que conducen a ella 
y entrentarse a los 
innumerables peligros que 
acechan entre la maleza. 

abre Wulf es el 
programa que convirti6 a la peque- 
fia firma de software Ultimate, en la 
marca de reconocido prestigio que 
todos conocemos. 
- Nacido para el Spectrum, es el pri- 
mero de la trilogia que engloba a Sa- 
bre Wulf, Underwulde y Knight Lo- 
re, los cuales aparecieron por este 
orden, revolucionando el mundo del 
software. 
En las versiones para Amstrad, el 
orden ha sido alterado: en primer lu- 
gar el Knight Lore y meses despu6s 
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el Sabre Wulf, estando todavia in6- 
dito el Underwulde. 
La senda es largo y tortuosa. El peligro 
amenaza en la guarida del bbo. Por el carni. 
no de la selva, a/ encuentro de tu deslino, un 
amuleto debes encontrar. Fue roto en cuatro 
partes, y escondido en daros de/a/ungla. El 
guardian nunca te permitird entrar en h. 
Esta leyenda, encontrada en una 
antigua Iosa, es leida por nuestro ex- 
plorador, el cual cautivado por el 
misterioso secreto escondido en la 
cueva del hechicero, no puede resis- 
fir la tentaci6n y comienza la bOsque- 
da. 
Rodeado por la exuberante vege- 
taci6n, Sabreman elige una senda, 
por la que encamina sus pasos ha- 
cia un destino desconocido. Cocote- 
ros, paimeras y dem6s plantas tro- 
picales, nos acompafian en nuestro 
recorrido, escondiendo los peligros 
que nos acechan. 

A nueslro encuentro salen las terrio 
hies criaturas de la selva; monos, 
arafias, p6jaros multicolores, alacra- 
nes, cacatgas, iguanas, surgen de los 
sitios m6s inesperados. 
El machete de Sabreman da bue- 
na cuenta de ellos, eliminando bichos 
molestos de un solo tajo. 
Otros enemigos no son tan f6ciles 
de aniquilar: hipop6tamos, watusiss 
hambrientos, rinocerontes, etc., s6- 
Io pueden ser ahuyentados a golpe 
de sable, aunque 6sta no es un ar- 
ma capaz de aniquilarlos. 
El Iobo dientes de sable es inmune 
al poder de nuestro machete, cons- 
tituyendo el enemigo m6s peligroso 
que hemos de encontrar en nuestro 
vagar por la tupida foresta. 
Jalonando nuestro recorrido, en- 
contramos ex6ticas orquideas salva- 
jes, las cuales podemos usar en nueso 
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tro favor, aunque otras nos afecten 
gravemente. 
La orquidea pOrpura, nos hace 
perder el sentido de la orientaci6n. 
La azul, pone alas a nuestro hom- 
bre, haci6ndole correr tres veces m6s 
r6picto. 
Orquidea roja: hace a Sabreman 
inmune a los ataques de las fieras de 
la jungla. 
Actormidera amrilla: hate que 
nuestro hombre caiga redonclo per- 
diendo el conocimiento por unos ins- 
tantes. 
Orquidea blanca, anula el efecto 
de las anteriores. 
Otros objetos distribuidos por los 
parajes de la foresta, incrementan 
nuestra puntuaci6n. 
Escondidos en los claros de la jun- 
gla, se encuentran las cuatro partes 
del m6gico talism6n, sin el cual no 
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podemos eludir al guardi6n de la 
cueva del hechicero. 
Una vez recogidos los cuatro, po- 
demos clecir que la aventura est6 en 
nuestras manos, s61o nos quecla di- 
rigirnos a la cueva y desvelar su se- 
creto. 
En Sabreman se ha utilizado el mo- 
do de resoluci6n m6s bajo, Io cual ha 
dotacto al pragrama de un colorido 
francamente notable, aunque esto 
haya provocado una p6rdida de re- 
soluci6n. 
En programas coma el Knight Lo- 
re y Alien 8, se ufiliza la resoluci6n 
intermedia, can cuatro colores y una 
definici6n mayor. 
Utilizando diecis6is colores, los 
gr6ficos adquieren gran brillantez y 
la selva se muestra en todo su esplen- 
dor ante los at6nitos ojos de Sabre- 
man. 
El escenario que recorre el intr6pi- 
do explorador, est6 formaclo por 
256 pantallas las cuales hemos de re- 
correr para encontrar los preciados 
trozos del talism6n. 
La estructura laberintica d los ca- 
minos de la jungla y la distribuci6n 
de los ciaves, nos obliga a elaborar 
un mapa de las distintas pantallas, 
para saber d6nde nos encontramos 
y la ruta a seguir. 
Sin 6ste, vagariamos por las mis- 
mas senctas continuamente, dejanclo 
zonas inexploradas, que nas impedi- 
rian acabar el juego. 
La consecuci6n de la aventura cos- 
tar6 horas y horas de entretenimien- 
to. 
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Como su nombre indica, este programa 
le permite disear una pantalla le 
caracteres magnificados o aumentados 
de tamao, para usarla posteriormente 
en presentaciones de juegos o de 
cualquier tipo de programa que se le 
ocurra crear. 

• I juego ompleto 
de caracteres est6ndar del Amstrad 
m6s los s[mbolos gr6ficos puede em- 
plearse, o bien usted, si asi o desea, 
redisear y utifizar6 otro c ,mpleta- 
mente nuevo. 
MAGNIFICADOR es compatible 
con EASYDRAW (ver AMSTRAD Se- 
manal nmero 1), as[ que se puede 
introducir texto aumentado de tama- 
o en diseos creados con 61. La su- 
brutina que comienza en la linea 820 
se puede incluir en su propio progra- 
ma y una demostraci6n de este m- 
todo se da en la demo con la que 
Magnificador comienza. Despus de 
sta, que puede evitarse si se desea 
suprimiendo la I[nea 130, aparecen 
en pantalla una serie de preguntas 
que el programa nos hace para ave- 
riguar una serie de datos vitales: 
I) CARGAR JUEGO DE CARAC- 
TERES Y/N: un juego especial de ca- 
racteres puede cargarse en memo- 
ria seleccionando Y. Dicho juego de- 
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ber[a haberse diseado usando 
CHARGEN (AMSTRAD Semanal n- 
mero ,¢), o redefinido con Magnifica- 
dory puesto a salvo en cinta/disco. 
2) FORMATO EASYDRAW Y/N: 
si se selecciona formato Easydraw, la 
pantalla Otiles ms pequea, rodea- 
da por un rect6ngulo rojo. El resul- 
tado de nuestro Jiseo puede car- 
garse: luego Easydraw, pero si se 
responde N a esta pregunta parte de 
los caracteres pueden perderse. 
3) MODE 0, 1 Y 2: esta pregunta 
resulta obvia. Recuerde, sin embar- 
go, que el ngmero de colores dispo- 
nible est6 en funci6n del modo de 
pantalla elegido. 
4) VOLCAR PANTALLA Y/N: el 
programa reserva 16 K de memoria 
para guardar una posible pantalla 
gr6fica. Si existe, puede volcarse en 
pantalla y manirularse. 
5) TECLEE PA'LABRA- ENTER: in- 
troduzca el mensaje que quiere mag- 
nificar seguido de ENTER. Alternati- 
vamente, si se pulsa primero la tecla 
ENTER pequea del teclado numb- 
rico, los c6digos ASCII entre 126 y 
256 pueden intorducirse y produci- 
rn el adecuado caracter grfico. 
Si se pulsa ENTER antes de que se 
haya introducido una palabra, apa- 
recer el mensaje OTRA PALABRA 
Y/N; respondiendo N tendremos 
acceso alas opciones load/save. 
d 6)el'a ESCALA 1 A N: dependiendo 
Iongitud de la palabra, se cal- 
cula una escala de impresi6n de la 
frase en pantalla. La escala 1 es me- 
nor que el tamao normal de los ca- 
racteres, y s61o se puede usar en 
MODE 2. 
7) INCLINACION Y/N: producir 
o no caracteres inclinados. 
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8) SOMBRA Y/N: si se selecciona 
sombra), los caracteres tendr6n un 
efecto tridimensional. Las teclas del 
cursor se usan para posicionar la 
sombra, en cualquiera de 8 posicio- 
nes. Para producir una sombra sobre 
la palabra, pulsa la tecla superior del 
cursor 2 veces. Cada vez que se pul- 
sauna tecla del cursor, se produce 
un beep, asi que debe oir dos de 
ellos. 
?) PLUMA 0 A N: elecci6n de plu- 
ma de dibujo. Los n0meros 16 y 17 
en MODE 0 son multicolores, as co- 
mo Ios4y5 en MODE 1. Cuandose 
elige la opci6n sombra, el color de 
la misma puede escogerse tambin. 
xt= yt-- : a medida que la palabra 
se dibuja en la pantalla, la posici6n 
de comienzo se refleja en estas dos 
variables. Tome nota de estos valo- 
res si piensa usar la subrutina que co- 
mienza en la linea 820 en sus propios 
programas basic. 
10) OTRA PALABRA Y/N 0 D 
PARA BORRAR: y pora dibujar otra 
palabra, N para siguientes opciones 
o D para borrar la 01tima palabra. 
1 !) SALVAR PANTALLA Y/N O F 
CARACTER: Y causa que la pantalla 
se almacene en la memoria de reser- 
va del programa, N pasa alas si- 
guientes opciones y F vuelca a cin- 
ta/disco el juego de caracteres rede- 
finidos. Una opci6n posterior permite 
salvar la pantalla guardada en la 
memoria reservada en cinta/disco. 
12) BORRAR PANTALLA Y/N O R 
REDEFINE: si se pulsa R, el progra- 
ma preguntard por nOmeros de 0 a 
225 en grupos de 8. Disee el nuevo 
juego en una parrilla de 8 x 8 y dele 
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los ndmeros al programa de arriba 
a abaio. 
1,3) CARGAR A MEMORIA Y/N 
O C CARACTERES: una pantalla sal- 
vada previamente pot este progra- 
ma o por Easydraw puede introdu- 
cirse en la memoria de reserva usan- 
do Y. C permite cargar un nuevo jue- 
go de caracteres. La pantalla salva- 
da puede cargarse en memoria sin 
el auxilio de ning0n programa me- 
diante 
LOAD NOMBRE,&CO00. 
Pot Oltimo, para incluir la subruti- 
na de magnificaci6n en su propio 
programa, construya la pantalla que 
sea us6ndolo. Tome nota de los va- 
lores de xt e yt y de las plumas usa- 
das, etc. 
Luego, emplee SYMBOL AFTER 32 
al comienzo del programa y la su- 
brutina que va de las lineas 820 a 
1350. 

VARIABLES 
PRIN¢IPALE$ DEL 
PROGRAMA 

topmen Posici6n de comienzo del 
juego de caracteres. 
screenmode Modo de pantalla. 
m0vx Movimiento de pixels. 
choicepen Plumas disponibles. 
letters Caracter de entrada. 
magS Palabra a ser 
magnificada. 
mag Escata. 
slope l=caracteres inclinados. 
shadow l=sombra si. 0=sombra 
no. 
enlarge M6xima escala posible. 
xt Posici6n horizontal del 
cursor de gr6ficos. 
yt Posici6n vertical. 
rubx ruby Coordenadas de 
borrado. 
blockcol Bloques 
coloreados = pluma + 2. 
random Bloques 
multicolores = pluma + 1. 
bnum N0mero de caracter. 
hums Caracter ASCII gr6fico 
en una cadena. 
Jit NOmero de pluma. 
Caracter redefinido 
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10 REM  MAGNIFICADOR  
20 REM 
30 REM  by Glynne Davies 
40 REM 
50 REM(c)AMSTRAD SEMANAL 
60 IF HIMEM=24410 THEN INPUT "PULSE 
D para disco"yS:IF yS "d" OR yS=" 
O" THEN topmem-40955:ELSE topmem 42 
70 IF HIMEM=24410 THEN GOTO 110:REM 
permite re-run 
80 IF HIMEM-43903 THEN topmem-42239 
ELSE topmem-40955:REM  cinta/disc 
o$ 
90 SYMBOL AFTER 32:REM esto introdu 
ce juego de caracteres en ram en 42 
240 o 40956(disco) 
i00 MEMORY 24410:REM  reserva memo 
ria para volcar pantalla y para el 
disco  
110 GOSUB 2070:REM $ carga codigo m 
aquina para el volcado de memoria 
120 REM 
130 REM GOSUB 2190:REM demostracion 
,quitese si se desea mas velocidad 
al arrancar el programa 
140 CLS:y-200:x=1:le÷t=O:bottom-32 
150 LOCATE fOlIO:INPUT #O"Cargar 
uego de caracteres Y/N";y$:IF y$ 
" OR y$="Y" THEN GOSUB 2140 
160 CLS 
170 LOCATE 9,12:INPUT "Formato Easy 
draw Y/N":y$ 
180 IF y$="Y" OR y$="y" THEN bottom 
=48:left=64:e=1 
190 CLS 
200 REM  formato de pantalla 
210 LOCATE 9,12:INPUT " mode 0 I o 
2";screenmode:IF screenmode>2 THEN 
GOTO 210 
220 MODE screenmode 
230 IF y$="d" OR y$="O" THEN GOTO 5 
IO:REM volvemos a preguntar 
240 IF screenmode-2 THEN screenmode 
=4:mow:=l:choicepen=1:cp=l 
250 IF screenmode=l THEN screenmode 
=2:movx=2:choicepen=3:cp=1 
260 IF screenmode=O THEN screenmode 
=1:mow(=4:choicepen=15:cp=14 
270 WINDOW #0,1,20screenmode,2425 

280 ORIGIN lef.bottom, left640400 
.bottom 
290 IF e= THEN DRAW 574,0,3:DRAW 5 
74.50,3:DRAW O350.3:DRAW 0.03 
295 PRINT CHR$(2) 
300 WHIIE I 
310 CIS #0 
320 lOCATE #O,I,I:INPUT #O,"Volcar 
pantalla Y/N":v$:IF v$="Y" OR yS="y 
" IHEN ALL 24473 
330 CLS #O:LOCATE #OI,I:PRINT "Te 
lee palabra-ENTER" 
340 mag$-"" 
350 ON ERROR GOTO 360 
360 word=O 
370 WHILE word 0 
380 letter$-INKEY$:IF letterS= .... TH 
EN GOTO 380 
390 IF INKEY(3)=128 THEN GOTO 380 
400 IF INEY(6)-O THEN SOUND I110 
IO:GOSUB 1530 
410 IF INKEY<181=O THEN word=1:lett 
er$="":GOTO 410:REM esperar basra q 
ue se suelte la tecla ENTER 
420 IF INKEY<79)=0 THEN l=LEN<mag$) 
:mag$-LEFT$(mag$l-1):letter$="":LO 
CATE #O,I2:PRINT #O,SPACE$(20) 
430 IF letterS<> .... THEN mag$=mag$+l 
etter$:letter$="" 
440 LOCATE #OI,2:PRINT #O,mag$ 
450 IF mag$ "" THEN GOTO 510:REM go 
to opcones 
460 WEND:word-O 
470 GOSUB 1360:REM $ position de la 

palabra eleglda con el cursor 
480 GOSUB 620:REM comprobar la long 
itud para dar las opciones de magnl 
icaclon 
490 GOSUB 820:REM leer la cadena 
dibuarla magni÷icada 
500 blockcol=r:random=O 
510 CS #O:LOCATE #0,1,I:INPUT 
Otra palabra Y/N o D para borrar":y 
$:IF y$="Y" OR y$="y" THEN GOTO 610 
:REM repite bucle 
520 IF y$="d" OR y$="D" THEN xt rub 
x:yt=ruby:p=O:GOSUB 820:1F shadow I 
THEN xt shadxt:yt=shadyt:8OSUB 820 
:shadow=O:REM borrar 
530 IF y$="d" OR y$="D" THEN GOTO 5 
IO:REM volvemos a preguntar 
540 CLS #O:LOCATE #0,1,I:INPUT #0," 
Salvar pantalla Y/N o F caracter"y 
$:IF y$="Y" OR y$="y" THEN GOSUB 18 
80 
550 IF y$="" OR y="F" THEN GOSUB 
2550 
560 CLS #O:LOCATE #OI:INPUT #0" 
Borrar pantalla Y/N o R redeine":y 
$: IF y$="Y" OR y$-"y" THEN CLG 
570 IF y$="r" OR y$="R" THEN GOSUB 
2300 
580 IF e=1 THEN DRAW 574,03:DRAW 5 
74,350,3:DRAW 0,3503:DRAW 0,03 
590 CLS #O:LOCATE #O,I:INPUT #0," 
Cargar a memoria Y/N o C caracteres 
":y$:IF V$="Y" OR y$="y" THEN GOSUB 
2020 
600 IF y$="c" OR y$="C" THEN GOSUB 
2140 
610 slope=O:shadow=O:WEND 
620 REM i opciones de magnlflcaclo 
n $ 
630 length=IEN(maq$) 
640 sze 

650 enlarge-size\(length8) 
660 IF enlarge8>y THEN size size-1 
O:GOTO 650 
670 CLS #O:LOCATE 1,1:PRINT "Escala 
i a ":enlarge::INPUT enlargeS:IF e 
nlarge$=" " OR enlarges "" THEN 670 
680 IF ASC(enlarge$)<49 OR ASC(enla 
rge$)>57 THEN GOTO 670 
690 mag=VAL(enlarge$) 
700 xt-x:yt=y 
710 IF x<2 THEN xt-(640-le÷t-length 
mag8)/2 
720 rubx=xt:ruby-yt 
730 CLS #O:LOCATE #OI,I:INPUT "Inc 
linacion Y/N"y$:IF y$ "Y" OR y$-"y 
" THEN slope-1 
740 IF choicepen =1 THEN SOTO 760 

750 CLS #O:LOCATE #O,I,I:INPUT "Som 
bra Y/N":y$:IF y$="Y" OR y$="y" THE 
N GOSUB 1640 
760 CLS #O:PRINT "Pluma 0 a"|choice 
pen+2:INPUT p$:IF p$ " " OR p$="" T 
HEN 760 
.770 IF ASC(p$><48 OR ASC(p$)>57 THE 
N GOTO 760 
780 p VAL(p$) 
790 IF p>choicepen+2 THEN 760 
800 IF mag=1 AND bnum>128 THEN bnum 
-bnum-128 
810 RETURN 
815 REM 
820 REM $$ lee cadena y magniica 
830 IF p=choicepen+2 THEN blockcol- 
1:choice=cholcepen+1 
84D IF choicepen=15 THEN cholce-12 
850 IF nodlsplay=l THEN GOTO 870:RE 
M imprime o no xt,yt 
860 CLS #O:LOCATE #OI,I:PRINT #0," 
xt-";xt" yt "|yt 
870 FOR letter-i TO LEN(mag$) 
880 IF slope-I THEN xt=xt+Bmovx 
890 MOVE ×t,yt 
900 letter$=MID$(mag$,letter1) 
910 position=ASC(letter$) 
920 mem=topmem+1+(position-32)$8 
930 FOR count-mem TO mem+7 
940 bnum-PEEK(count) 
950 IF slope=1 THEN ×t=×t-movx 
970 IF bnum> 128 THEN GOSUB 1260:bn 
um=bnum-128 
1000 xt=xt+mag:MOVE xt,yt 
1010 IF bnum> 64 THEN GOSUB 1260:bn 
um=bnum-64 
1030 xt xt+mag:MOVE xt.yt 
1040 IF bnum>-32 THEN GOSUB 1260:bn 
um bnum-32 
1060 xt-xt+mag:MOVE xt,yt 
1070 IF bnum>=16 THEN GOSUB 1260:bn 
um bnum-16 
1090 ×t=xt+mag:MOVE ×t,yt 
1100 IF bnum>=8 THEN GOSUB 1260:bnu 
m=bnum-8 
112D xt=xt+mag:MOVE xt,yt 
1130 IF bnum>=4 THEN GOSUB 1260:bnu 
m=bnum-4 
1150 ×t-×t+mag:MOVE xt,yt 
1160 IF bnum> 2 THEN GOSUB 1260:bnu 
m-bnum-2 
1180 xt=xt+mag:MOVE xt,yt 
1190 IF bnum-1 THEN GOSUB 1260 
1200 bnum =0 
1210 ×t=xt-(7mag):yt=yt-mag:MOVE 
t,yt 
1220 NEXT 
1230 ×t-×t+(8mag):yt yt+(8mag) 
1240 NEXT 
1250 RETURN 
1260 REM 
1265 IF blockcol I THEN p=(p+ll MOO 
choice:IF p=O THEN p=l 
1270 IF p choicepen+l THEN random 1 
1275 xl-mag-mov× 
1280 WHILE inc<mag 
1290 IF random=l THEN p%-RND(1)$cho 
icepen:p-p%:IF p-O OR p> 14 THEN p 
I 
1300 DRAWR ×lOp 
1310 inc=inc+l 
1320 MOVE xt,yt-inc 
1330 WEND 
1340 MOVE xtyt:inc 0 
1350 RETURN 
1355 REM $ fin de la subrutlna 
1360 REM  election de la position 
del cursor 
1370 tes-TEST(x,y) 
1380 LOCATE #O,I2:PRINT #O"Teclas 
del cursor - Enter" 
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1390 WHILE curset=O 
1400 IF INKEY(1) 0 THEN PLOT x,y,te 
s:tes-TEST(x+mov×.y):×-×+movx:PLOT 
×,ycp 
1410 IF INKEY(8)-O THEN PLOT xy,te 
s:tes TEST(x-mov×y):x=×-mov×:PLOT 
x,y,cp 
1420 IF INKEY(O)=O THEN PLOT ×,y.te 
s:tes-TEST(x.y+2):y=y+2:PLOT ×y,cp 
1430 IF INKEY(2)=O THEN PLOT x,y,te 
s:tes=TEST(×y-2):y=y-2:PLOT x,y,cp 
1440 IF ×<4) THEN ×=O:PLOT O,y,cp 
1450 IF x>639-1eft THEN ×=639-1eft: 
PLOT 639-1eft,y,cp 
1460 IF y>398-bottom THEN y-398-bot 
tom:PLOT x,398-bottomcp 
1470 IF y<l THEN y=I:PLOT ×,lcp 
1480 IF INKEY(IS) 0 THEN PLOT ×,y,t 
es:curset-1 
1490 IF INKEY(18)-O THEN GOTO 1490: 
REM esperar basra que la tecla ENTE 
R deje de pulsarse 
1500 WEND 
1510 curset-O 
1520 RETURN 
1530 REM  entrada de datos  
1540 CALL &BBIB: IF INKEY(6)=O THEN 
GOTO 1540 
1554) LOCATE #0, I. I:PRINT #O,SPACS( 

20) 
1560 LOCATE #O.I,I:INPUT #O,"Introd 
uzca numero";num$: IF humS="" THEN G 
OTO 1560 
1570 IF LEN(num$)<>3 THEN 8DTO 1550 
1580 IF VAL(num$)<127 OR VAL(num$)> 
255 THEN GOTO 1550 
1590 LOCATE #O,I,I:PRINT #O,SPACE$( 
20):LOCATE #O,I,I:PRINT #O,"Teclee 
palabra" 
1600 letterS CHR$(VAL(num$)) 
1610 IF INKEY(18)-O THEN GOTO 1610 
1520 IF INKEY(6) 0 THEN GOTO 1610 
1630 RETURN 
1640 REM 
1650 yyt-yt:xxt-xt 
1660 IF mag<4 THEN reduce-1 ELSE re 
duce-2 
1670 shadow-1 
1680 CLS #O:LOCATE #O,II:PRINT "do 
s teclas de cursor" 
1690 WHILE ks<1 
1700 IF INKEY(O)-O THEN SOUND 1,100 
,25:yt-yt+mag\reduce:ks-ks+0.5 
1710 IF INKEY(2)=O THEN SOUND 1,100 
,25:yt=yt-mag\reduce:ks=ks+0.5 
1720 IF INKEY(8) 0 THEN SOUND I100 
,25:xt-xt-mag\reduce:ks ks+0.5 
1730 IF INKEY(1)=O THEN SOUND 1,100 

• 25: xt-xt +mag\reduce: ks-ks+O. 5 
1740 FOR n 1 TO 300:NEXT 
1750 WEND 
1760 WHILE hold<l:REM espera hasta 
que se suelte tecla 
1765 IF INKEY(O)<>O AND INKEY(2)<>O 
AND INKEY(8)<>O AND INKEY(1)<>O TH 
EN hold I 
1770 WEND 
1780 hol d-O 
1800 ks=O:shad×t-xt:shadyt=yt 
1810 FOR n=l TO 100:NEXT:CALL &BBIB 
1815 PRINT:PRINT 
1820 CLS #O:LOCATE #O,I,I:PRINT #0., 
"Sombra O-":choicepen+2! " " : INPUT 
#O.p$:IF p$=" " OR p$="" THEN GOTO 
1820 
1830 IF ASC(p$)<48 OR ASC(p$)>57 TH 
EN GOTO 1820 
1840 p=VAL(p$) 
1850 GOSUB 820:REM  letras de fond 
o  
1860 
1870 
1880 
a  
1890 
1900 

xt-xxt:yt=yyt:random=O 
RETURN 
REM  Salvar pantalla a memori 

SOUND 1100.20:MOVE C)O 
CLS #0 
1910 IF e=l THEN DRAW 574,0,3:DRAW 
574,3503:DRAW O3503:DRAW 0,03 
920 CALL 24411 : REM codigo maquln 
a 
1930 CALL 24423 
1940 LOCATE #0,1I:INPUT #O,"Salvar 
memoria Y/N":y$:IF y$="Y" OR y$-"y 
" THEN 80SUB 1970 
,960 RETURN 
1970 REM * salvar pantalla a cinta/ 
disco * 
1980 SPEED WRITE I 
1990 CLS #O:LOCATE #OI,I:PRINT #0 
"Nombre de ichero":INPUT nameS 
2000 SAVE name$,B,&5F75&4000 
2010 RETURN 
2020 REM  cargar a memoria desde 
cinta/disco 
2030 CLS #O:LOCATE #0.1,1:INPUT #0• 
"Nombre";picname$ 
2040 LOAD picname$,&5F75 
2050 RETURN 
2060 REM  codigo maquina para el 
volcado de pantalla 
2070 FOR n-24411 TO 24434 
2080 READ × 
2090 POKE n,x 
2100 NEXT n 
2110 RETURN 
2120 DATA I0,64,33,0,192,17,117,95 
,237,176,201 
2130 DATA 1,06433,11795.17,0,192 
,237,176,201 
2140 REM  cargar uego de caracter 
es  
2150 CLS #O:LOCATE #O,I,I:INPUT #0, 
"Nombre de fichero":il$ 
2160 IF LEN(fil$)>8 THEN GOTO 2150 
2170 LOAD fil$,topmem+l 
2180 RETURN 
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2190 REM *I$ Demostracion de uso de 
ntro de tus propios programas 
2200 MODE O:choicepen=15:ORIGIN 0,3 
2,0,640,400,32:nodlsplay=1 
2210 mag$="Magnifica":mag 6:slope=O 
:p=1:xt=104:yt-278:GOSU8 820:REM 
dibua escala 6 en amarillo 
2220 mag$="CARACTERES":mag=7:slope= 
l:mow 4:p=5:xt=28:yt 200:GOSUB 820 
:REM rondo 
2230 mag$-"CARACTERES":mag=7:slope= 
1:movx 4:p=16:xt=32:yt 196:GOSUB 82 
O:REM primer plano 
2240 random=O:REM colores especiale 
250 mag$ "por":slope=0:mag=4×t=28 
8:yt=120:p 3:GOSUB 820 
2260 mag$="Glynne Davies":mag 4:xt- 
I12:yt=bO:p=15:OSUB 820 
2270 FOR N=I TO 500:NEXT 
2280 MODE I 
2290 RETURN 
2300 REM I'simple redefinidor de c 
aracteres 
2310 CLS #O:LOCATE #OII:INPUT #0, 
"Redefine caracter Y/N";y$:IF y$=" 
y" OR y$-"Y" THEN GOTO 2320 ELSE RE 
TURN 
2320 FOR define-i TO 8 
2330 CLS #O:LOCATE #OI,I:PRINT 
"Numero ";define; .... :INF'LIT #O,bitS 
2340 IF bitS="" OR bitS=" " THEN GO 
TO 2330 
2350 IF LEN(bit$)>3 THEN GOTO 2330 
2360 IF ASC(bit$)<48 OR ASC(bit$)>5 
7 THEN GOTO 2330 
2370 blt=VAL(bit$:IF bit>255 THEN 
GOTO 2330 
2380 POKE topmem+deine.bit 
2390 NEXT 
2400 CLS #():INPUT #0," Y/N";y$:IF y 
$="y" OR y$="Y" THEN GOTO 2410 ELSE 
GOTO 2480 
2410 CLS #O:INPUT #O"Entre(CHR$)nu 
2420 IF memno>255 OR memno<32 THEN 
GOTO 2410 
2430 memno-memno-32 
2440 FOR n-1 TO 8 
2450 Iook-PEEK(topmem+n 
2460 POKE topmem+(memno8)+nlook 
2470 NEXT 
2480 REM borrar espacio chr$ 32 
2490 FOR n-I TO S 
2500 POKE topmem+n,O 
2510 NEXT 
2520 CALL &BBB 
2530 CLS #O:INPUT "Otto Y/N":y$:IF 
y$-"y" OR y$="Y" THEN GOTO 2320:REM 
repetir redefinicion 
2540 RETURN 
2550 REM  salvar uego de caracter 
es  
2560 CLS #O:LOCATE #OI,I:INPUT #0, 
"Salvar caracteres Y/N";y$:IF y$-"y 
" OR y$ "Y" THEN GOTO 2570 ELSE RET 
URN 
2570 CLS #O:LOCATE #0,1,1:INPUT #0 
"nombre de ichero";charfile$ 
2580 IF LEN(charile$>8 THEN GOTO 
2570 
2590 CLS #0 
2600 SPEED WRITE 1 
2610 SAVE charile$,B,topmem+11792 
2620 CALL &BBIB 
2630 RETURN 

AICROHOBBY AMSTRAD 23 



iiVUELVEN LOS AUTORES DE FRED!! 

El silbido de las ho- 
jas con el viento del 
bosque seve brutal- 
mente Interrumpldo pot 
la aparici6n de una fi- 
gure solitaria entre el 
enramado de los 
bustos, El aire cortan- 
te del norte amenaza 
con rasgar las vestl- 
duras del gran caballe- 
ro. SIR FRED. Su ta- 
b I o s a preocupacl6n 
por el rapto de la prin- 
cesa, que area no apa- 
rece reflejada en su 
lmpertrrito semb]an- 
te. 
Nunca rinse enfren- 
tado a tantos y tan 
grandes peligros. En 
cada recodo, en cada 
estancla del gran cas- 
tillo de los Beni-G- 
mez le, espera, ace- 
chante, la muerte. 
Pero no hay ya 
pacio para la duda 
tiempo para echarse 
atr&s. La decision es- 
ti ya tomada. La tle- 
rra corre, casi vuela 
bajo el empuje firme 
e implacable de sus 
pies,.. 

t 

:  ,mR|mm 
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SOFTWARE 
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PARA SPECTRUM 48 K, PLUS O 128. Y AMSTRAD 
(PROXIMAMENTE, COM. 64}. 
Pidelo a tu tienda habitual de inform&tica o directamente 
a: MADE IN SPAIN SOFT, Escuela de Informtica Mr. CHIP, 
Av. Cardenal Herrera Oria, 171, bajo. 28034 MADRID. Teldfo- 
no 201 64 09. 
Distribuido en Inglaterra por MICRO-GEN. 



BUSQUED' BINARIA nal  s  s 

Frecuentemente hay que tratar en un programa con cadenas alfanumiricas, y m6s 
frecuentemente an hay que realizar cosas con elias para procesarlas. 
De estas ooeraciones, las ms comunes son: ordenar urla serie de variables de cadena 
segun un criteria, y, una vez hecho esto, Iocalizarla cuando sea necesario. 
An6lisis ya propuso en su dfa un al.goritmo de ordenaci6n muy sencillo y que trabaja 
muy bien para un numero de dotos de pequeo tamafio. 
Esta semana vamos a ocupornos de c6mo Iocalizar una cadena determinada en una 
matriz alfanumirica que YA ESTA ORDENADA. 

1 mtodo escogido se 
conoce como b0squeda binari., e imito has- 
ta cierto punto el procedimiento que una per- 
sona sigue cuando trato de Iocalizar algo. 
Si usted trata de Iocalizar en la guia al se- 
fior Prez, sabe que este apellido empiezo por 
una letra tal que debe estar comprendido en- 
tre la P y la Z. No se molesta en investigar si 
puede estar en la zona de la guia que comien- 
za por la letra A. Nosotros hacemos algo si- 
milar: partiendo de que nuestro array ya es- 
t6 ordenado, averiguamos c0al es el elemento 
del medio, y Io comparamos cn la cadena 
que estamos buscando. 
Pueden pasar tres cosas: 
a, Son iguales; Io hemos encontrado y la 
b0squeda termina. 
b. El elemento central es menor que nues- 
tra cadena; esto implica que Io que buscamos 
s61o puede estar en la mitad superior del 
array, contando como nuevo primer elemen- 
to para la siguiente b0squeda la mitad + 1. 
¢, Es menor, en cuyo caso estar6 en la mi- 
tad inferior y el 01timo elemento para la bOs- 
queda siguiente ser6 la mitad - 1. Observe 
c6mo al cumplirse b o ¢ apartamos la mitad 
del array de un plumazo. 
Eventualmente, o encontramos la cadena o 
es que no existe en el array. Sabemos que no 
existe porque, tras sucesivas divisiones por dos 
de la dimensi6n del array, el elemento prime- 
rose hace igual o mayor a101timo. En este ca- 
so, el elemento no existe y la b0squeda termi- 
na. 
La descripci6n del programa seria ask 
10 Inicializaci6n de la pantalla. 
30-?0 Declaraci6n de variables. 
110 Inicializa la matriz, ordenndola de 
paso. Esta matriz sirve s61o como prueba del 
algoritmo de b0squeda. No tiene aplicaci6n 
pr6ctica en un caso real. 
1:20 Impresi6n del contenido de la matriz 
letra$. 

14.0 Creaci6n de un bucle sin fin por el m- 
todo de siempre. 
1 ,SO Introducci6n de la palabrc a buscar. 
160 Esta linea permite investigar la matriz 
parcialmente, en lugar de buscar de la A a la 
Z. La raz6n es doble: acelerar la b0squeda y 
ver qu pasa cuando falla, ya que, como la 
matriz letraS tiene todas las letras del alfabe- 
to, buscando de la A a la Z se acertaria siem- 
pre. 
170 Comprobar que letlS y let2$ son efec- 
tivamente letras. 

180 Escogemos la primera letra de la pa- 
labra. 
190 Variables intermedias para uso de la 
rutina de bOsqueda. 
200 Llamada a la rutina de b0squeda. 
:210 Se comprueba que la cadena existe o 
no mediante el valor de (mitad, devuelto por 
la rutina de bOsqueda. 
El resto del programa consta 0nicamente de 
las subrutinas mencionadas, cuyo funciona- 
miento es evidente excepto tal vez el de la de 
b0squeda, comentada en el comienzo del An6- 
lisis. 

 ELSE PRINT 
20 WEND 
30 ENDsREM  FIN DEL PROGRAMA 
$ 
?40 RFM  INI|AiI2A 
250 FOR l=asc.de.a TO 
260 Itta$(| asc.de.a)=CH(1) 
70 NEXT | 
280 RETURN 
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INSRUCCIONE$ DE ROTA C/ON 

Y DESPLAZAMIENTO (I) 

Esta semana vamos a hablar de una serie de instrucciones que 
tienen bastante en comn con las que tratamos en el capltulo 
anterior, puesto que tambin se refieren al tratamiento de los 
bits que forman un byte. 

z 

z 

I 

hemos visto c6mo podemos averi- 
guar si un ¢ierto bit de cierto regis- 
tra o posici6n de memoria est6 pues- 
to a uno o a cero, o bien poner a uno 
o a cero cualquier bit que nosotros 
deseemos. Pues bien, las instruccioo 
nes que vamos a trafar en este capi- 
tulo nos permitir6n mover de diferen- 
tes formas todos los bits que compo- 
nen un byte. 

Rotar 
el acumulador 

Vamos ha hablar en primer lugar 
de las intrucciones de rotaci6n y des- 
plazamiento que operan con el acu- 
mulador, o sea con el registro A. La 
primera de estas instrucciones se re- 
presentan de la siguiente farma: 
RLCA 
Esta instrucci6n produce una rota- 
ci6n hacia la izquierda del acumula- 
dor. El contenido del bit 0 se mueve 
hacia el bit 1, el contenido previo del 
bit 1 se mueve hacia el bit 2, y asi su- 
cesivamente hasta Ilegar al bit 6. En 
cuanto al contenido del bit 7, 6ste se 
copia en el Flag Carry (flag C del re- 
gistro F), y tambi6n se copia en el 
Bit 0. 
Esquem6ficamente, la operaci6n 
que se realiza al ejecutar dicha ins- 
trucci6n es: 
C-.7,- 6 - 5,-4 - 3 - 2 - 1 -0. 
Vamos a ver un ejemplo pr(ctico, 
y de esta forma comprenderemos 

26 /oo AMSTRAD 

mejor cu61 es el resultado de la ope- 
raci6n. Supongamos que el conteni- 
do del acumulador es 130, y que el 
Flag Carry est6 puesto a O. Por Io 
tanto antes de ejecutar la instrucci6n 
tendremos Io siguiente: 

C 76543210 
0 10000010 

Despu6s de ejecutada la instruc- 
ci6n RLCA, el contenido del acumu- 
lador y del Falg Carry, sera: 
C 76543210 
0 10000101 
asi pues en el acumulador obtendre- 
mos el valor 3, y el Flag Carry esta- 
r8 puesto a uno. 

Programa Uno 

En el primer programa que hemos 
preparado, podremos comprobar 
c6mo esta instrucci6n de rotaci6n, 
actOa sobre el Flag Carry. En primer 
lugar cargamos el acumulador con 
el valor 128, hemos puesto este va- 
lor, aunque podramos haber pues- 
to cualquier otro pero con la condi- 
cici6n de que el bit 7 debe contener 
un 1. Luego ejecutamos la instrucci6n 
RLCA y a continuaci6n el programa 
retornar6 al Basic puesto que el 
Carry est6 puesto a 1. Si a este pro- 
grama se le suprime la instrucci6n 
RLCA, comprobar6is c6mo el orde- 
nador se cuelga irremisiblemente al 
ejecutar el programa, puesto que el 
Carry estarc puesto a cero y no po- 
dr6 retornar. 

Programa Dos 

En el segundo programa que os 
presentamos, queremos hater una 
demostraci6n visible de c6mo actOa 
la instrucci6n que estamos estudiano 
do. 

En primer lugar, Io que hacemos 
es poner el ordenador en modo 2, 
para una mayor facilidad en el ma- 
nejo de la pantalla, de eso se encar- 
gan las dos primeras lineas del pro- 
grama, luego cargamos en el acu- 
mulador el valor 1 y Io cargamos en 
una posici6n de memoria visible pa- 
ra nosotros, o sea, una posici6n de 
memoria que corresponda a la pan- 
talla como es la direcci6n #C025. 
A partir de aqui el programa es- 
perar a que pulsemos cualquier te- 
cla para ejecutar la instrucci6n de 
taci6n e imprimir6 el resultado en la 
pantalla, y as[ sucesivamente hasta 
7 veces, o sea que el valor final del 
acumulador ser6128, Io que signifi- 
ca que el bit 7 estar6 puesto a uno 
y todos los dem6s bits del 0 al 6 es- 
tar6n a cero. 



La instruction RLA 

La siguiente instrucci6n de rotation 
de la que vamos a estudiar se repre- 
senta de la siguiente forma: 
RLA 
y es semejante a la anteriormente de- 
tallada pero con ciertos matices que 
la diferencian. La ejecuci6n de esta 
instrucci6n produce una rotaci6n a la 
izquierda del acumulador (registro 
A). El bit 0 se copia en el bit 1, el con- 
tenido previo del bit 1 se copia en el 
bit 2 y asi sucesivamente. El conteni- 
do del bit7 secopia en el Flag Carry 
(Flag C del registro F), y el conteni- 
do previo del Flag Carry se copia en 
el bit O. 
Vamos aver esquem6ticamente 
c6mo afecta dicha instrucci6n al acu- 
mulador y al Flag Carry. 

C76543210 
I • 

Vamos a suponer que el conteni- 
do del acumulador y del Flag Carry 
sean los siguientes: 
C 76543210 
1 01110110 
Tras la eiecuci6n de la instrucci6n 
RLA, el contenido del acumulador y 
del Flag Carry ser6n los siguientes: 
C 76543210 
0 11101101 
as/pues como podemos observar el 
contenido del Carry se copia en el bit 
0 del acumulador. 

Programa Tres 
En el programa nOmero 3 pode- 
mos ver c6mo actOa esta instrucci6n. 

En primer lugar cargamos en el 
acumulador el valor 1, luego no en- 
contramos con un bucle en el que con 
ayuda de la instrucci6n BIT n,r, vista 
en el capitulo anterior, comproba- 
mos si el bit 7 del acumulador est6 
puesto a uno, de Io contrario pasa 
y se ejecuta la instrucci6n RLA, y asi 
hasta que el bit 7 del acumulador 
contenga un 1, el programa mues- 
tra en pantalla con el simbolo '.' las 
veces que se repite el bucle. 
Como es de esperar el simbolo '.' 
aparecer67 veces en pantalla, ya 
que hemos cargado el acumulador 
con el valor 1, es decir, el bit 0 del 
registro A est a 1 y todos los dem6s 
a 0, por Io tanto la instrucci6n RLA 
deber ejecutarse siete veces hasta 
que el contenido del bit 0 pase a ocu- 
par el bit 7. 



Programa Cuatro 
El programa nOmero 4, Io que ha- 
te es mirar el contenido del Flag 
Carry aprovech6ndose de la instruc- 
ci6n que estamos estudiando. Asi 
pues pasamos el contenido del Carry 
al bit 0 del acumulador, pot Io tanto 
si este bit vale cero, querr6 decir que 
no hay Carry por Io que se imprimi- 
r6 una N en pantalla, si por el con- 
trario este bit vale 1, el programa 
nos imprimir6 una C, o sea, que hay 
Carry. 

I InstructiOn RRCA 
La siguiente instrucci6n a estudiar 
es igual a la vista al principio de este 
capftulo, con la sola diferencia de 
que si la primera hacia una rotaci6n 
a la izquierda, 6sta produce una ro- 
taci6n a la derecha. Esta instrucci6n 
se representa de la siguiente forma: 
RRCA 
y produce como hemos dicho una ro- 
taci6n a la derecha del acumuladoro 
El contenido del bit 7 se copia en el 
bit 6, el contenido previo del bit 6 se 
copia en el bit 5, y asi sucesivamen- 
te. El contenido del bit 0 se copia en 
el bit 7 y tambi6n en el Flag Carry del 
registro F. 
Esquem6ticamente dicha instruc- 
ci6n produce el siguiente efecto: 
7-6 5-4-3- 2  1 O-C 
I • 
Vamos a suponer que el conteni- 
do del acumulador y del Flag Carry 
son los siguientes: 
76543210 C 
00010001 0 
tras la ejecuci6n de dicha instrucci6n 
obtendremos los siguientes valores: 
76543210 C 
10001000 1 

I Programo Cinco 
Para ver c6mo funciona esta ins- 
trucci6n fij6monos en el programa 5, 
que es el mismo que hemos utilizado 
para ver visiblemente el efecto que 
producia la instrucci6n RLCA. 

Ahora el lugar de ver girar el bit 
que tenemos en pantalla hacia la iz- 
quierda, Io veremos girar hacia la 
derecha por efecto de la instrucci6n 
RRCA. 
Una demostraci6n de las posibili- 
dades de esta instrucci6n la tenemos 
en el programa nOmero 5. En primer 
lugar Io que hace es poner la panta- 
Ila en modo 2 para trabajar con ma- 
yor comodidad, luego nos pinta una 
'A' en pantalla y mediante un bucle 
hate rotar esta letra. Cada vez que 
pulsemos una tecla el caracter rota- 
r6 un bit y asi hasta que salgamos del 
bucle. 
Esta rutina toma el primer byte que 
compone el caracter y Io gira un bit, 
luego toma el segundo byte y hace 
Io mismo y asi sucesivamente hasta 
completar los 8 bytes que forman el 
caracter que tenemos en pantalla. 
I Instruccin RRA 
La Oltima instrucci6n que estudia- 
remos en este capitulo es otra instruc- 
ci6n de rotaci6n a la derecha que se 
representa de la siguiente manera: 
RRA 
y produce una rotaci6n del acumu- 
lador hacia la derecha. El contenido 
del bit 7 se copia en el bit O, el con- 
tenido previo del bit 6 se copia en el 
bit 5 y asi sucesivamente. El conteni- 
do el bit 0 se copia en el Flag Carry 
y el contenido de ste se copia en el 
bit 7. 
Esquem6ticamente produce el si- 
guiente efecto: 
7- 6 5-4 3-2  1  0--+ C 
I • 
Vamos aver el efecto producido 
suponiendo que el acumulador yen 
Carry tengamos los siguientes valo- 
res: 
76543210 C 
1110000 1 0 
Tras la ejecuci6n de esta instruc- 
ci6n obtendremos los siguientes va- 
lores: 
76543210 C 
01110000 1 
Un ejemplo de actuaci6n de esta 
instrucci6n Io tenemos en el progra- 
ma 7. Aqui Io que hacemos Onica- 
mente es cargar el acumulador con 
un uno, y luego mediante RRA pone- 
mos el Flag Carry a 1. 
El programa nOmero 8 Io que ha- 
cees mirar el contenido del bit 0 del 
acumulador, traspas6ndolo previa- 
mente al Flag Carry. Si hay Carry nos 
imprimir6 un 1 y si no hay Carry nos 
imprimir6 un O. 

PROGRAMAS 

I0 : F ROGRAMA-2 
2n : 
AO¢O 30 ORG ,AO00 
AO00 "E02 40 LD Ao2 

CARRY AOOB 

I0  PROGRAMA-5 
AO00 .3O OAG #AC O0 
AO02 CD( E [C 50 CALL #BCOE 
AO05 3E4i bO LD A, 

I0 ;F'ROGRAMA-7 
AO00 3EO| 40 LD 
AO03 C9 &O R/T 

AO00 3£0i 40 LD A.I 
AO02 iF 50 RRA 
AO03 DCOAAO &O CALL C.UNO 
AOOA 3E3| 90 UNOI LD A, 1 
AOOC CD5ABB i O0 CALL #BBSA 
AOOF C9 II0 RET 
AOI2 CD5AB8 130 CALL ,BBSA 
CEO A010 UNO AOOA 



"AA SUARI. DE  RDEN' o,REsAMSTRAD 

E OFRECE AHORA SUS PROGR' MA$ YA 

ON LOS MODE 0 
CPC-464t CP -.. , 
' .12: 

AM RA  SEMANAL te ofrece coda rues los 
progromos publicados en los cuatro 
nmeros correspondientes, en uno cinto de 
cassette desprotegida, que te permMrd 
cop/or los programas en disco y tener acceso a los 
listodos poro su estudio y posterior edicidn 

T 
o . as los programador . " y. ficionados a la 
microinform6tica, sabemos Io tedioso y propenso a 
errores que resulta el teclear un listado de un 
programa. Para facilitar tu labor al mximo y 
eVitm" ElUe malg. Stes largos horas sabre el teclado 
de tu ordenador tratando de descif . 
incomprensiblemente mensajes de error. 

GRABADOS PARA QUE VD. NO TENGA QUE 
TECLEARLO$. TOTALMENTE DESPROTEGIDO$ CON EL 
OBJETO DE FACILITAR SU COPIA EN DISCO. 
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El programa es una pequea ru- 
tina o truco (como se le quiera Ila- 
mar) para imprimir un texto ¢¢musi- 
calmentm. El texto se introduce en 
lineas DATA a partir de la linea 100, 
poniendo una coma entre cada letra, 
y los espacios y las comas que se 
quieran imprimir en pantalla deben 
ir entre comillas. Como pueden ver, 
el programa es muy sencillo pero vis- 
toso, sobre todo para presentaciones 
de juegos. 
El listado es el siguiente: 

CARA CTERE$ ASCII 

Jos Antonio Garcfa nos envfa un pequeo 
programa cuya utilidad estriba en poder 
averiguar en todo momento el caracter ASCII 
de una tecla, por el sencillo procedimiento de 
pulsarla. 

EI m6rito consiste 
precisamente en esto, porque, si bien 
hay formas menos complejas de ex: 
traer esa informaci6n (mirar el ma- 
nual, por ejemplo), no cabe duda de 
que son notoriamente obsoletas y, 
adem6s, no nos sirven en absoluto 
para aprender t6cnicas de progra- 
maci6n. AI fin y al cabo, para algo 
est6n los ordenadores. 
Cedemos la palabra al autor del 
programa, que se ha tomado la mo- 
lestia de enviarnos una detallada 
descripci6n del mismo, en pantalla y 
a mano. 
Sirve para hallar el c6cligo ASCII 
del teclado. Tambi6n Io admite con 
SHIFT o CAPS LOCK. 

Linea Funci6n 

10- 50 
60- 80 
90-150 
160- 
170.180 
90- 
200. 
210- 
220- 

Identificaci6n del programa. 
Concficiones del color para 
papel y pluma. 
Instrucciones del programa. 
Aguarla una pulsoci6n para 
inidar el programa. 
Cabeceras de resullado. 
Aguarda una pulsaci6n para 
iniciar la ejecuci6n. 
Pregunta si el ASCII es igual a 
13 (ENTER) o es igual a 9 
(TAB), si se pone a blancos el 
campo del caracter. 
Orden de sonido, con relaci6n 
al c6digo ASCII de la tecla 
pulsada. 
Imprime el caracter pulsado, y 
a continuaci6n imprime el 
ASCII. 

10 MODE I 
20 RESTORE lOC; 
3f) READ 1 $ 
40 IF I$="I" THEN END 
50 s=ASC(! $) 
60 PRINT I$ 
70 SOUND I,s,5,7 
80 FOR n=1 TO tOO:NEXT 
90 GOTO 30 
I00 DATA E,ste," 
" ",e, J,e,m,p, I.o, " 
S,T,R.A,D, 

I(' REM 
20 REM  ASCII 
30 REM  1985 POR 
40 REM  30SE A. GARCIA 
50 REM 
60 PAPER <) 
70 PEN 9 
80 CLS 
90 LOCATE 4,6:PRINT "PARA OBTENER E 
L CODIGO ASCII DEL" 
i00 LOCATE 9,8:PRINT "TECLADO CORRE 
CTAMENTE." 
Ii0 LOCATE 4,10:PRINT "FIESE EN El 
CARACTER DE REFERENCIA" 
120 LOCATE 3,12:F'RINT "SI SE QUIERE 
LA LETRA EN MAYUSCULAS" 
130 LOCATE 3,13:PRINT " Y ESTA EN M 
INUSCULA 0 VICEVERSA PULSE " 
140 LOCATE 15,17:PRINT "[CAPS LOCK] 
150 LOCATE 423:PRINT "<PARA EJECUT 
'AR PULSE UNA TECLA>" 
IbO I$=IN}::EY$:IF I$-"" THEN IbO ELS 
E CLS 
170 LOCATE 7,9:P$-" codigo ascii d 
el teclado ":PRINT UPPER$(P$) 
180 PRINT:LOCATE 9011:F'RINT " CARAC 
TER ":LOCATE 21II:PRINT " NLJMERO" 

190 R$=INKEY$:IF R$-"" THEN 190 
200 IF ASC(R$)=I3 OR ASC(R$)=9 THEN 
LOCATE 33:PRINT CHR$(3?);CHR$(3 
2)CHR$(32) ELSE 210 
210 SOUND ,RNDASC(R$),Iq5I 

220 LOCATE 13I3:F'RINT CHR$(32)R$: 
CHR$(32):IOCATE 21,13:PRINT CHR$(32 
);ASC(R$)CHR$(32):GOTO 190 

30 /COHOY AMSTRAD 



SEIKOSHA 

CARNAVAL SITGES 

OPERA JAPONESA 

DIOS NEPALI 

PPULAR CHINA 

| 

OPERA CIIINA 

SEIKOSIIA MP 

8ATIR0 POPULAR JAPON 

MASCAI  AS 

GP-50 • La pequefia 40 cps. Papel normal con interface paralelo, serial y Spectrum .................................................. 17.990 ptas. 
GP-700 * La de color 50 cps. 7 colores. 80 columnas. Tracci6n y fricci6n. Papel de 10 pulgadas .................................. 64.990 ptas. 
SP-1.000 * La programable 100 cps.24 cps en aim calidad 96 cart. programables en RAM. Introductor hoja a hoja.0 .............. 64.990 ptas. 
S P-1.0 0 0AS La programable 100 cps.24 cps en alta calidad con interface RS-232. Introductor hoja a hoja.0 ......................... 59.900 ptas. 
M P-1,3 0 0 A I La polivalente 300 cps, 60 cps en alta calidad, interface pa.ralelo y RS-232. Introductor hoja a hoja.& ............... 119.900 ptas. 
BP-5.200 * La de oficina 200 cps, 106 en alta calidad.Buffer 4K.Carro de 15".Tracci6n y fricci6n. ............................... 199.900 ptas. 
BP-5.420 * La mis r,pida 420 cps. 106 cps en alta calidad. Buffer de 18K. Paralelo y RS-232. ................................... 299.900 ptas. 

Interfaces: Serie RS-232C, Spectrum, IBM, COMMODORE, MSX, QL, Apple Macintosh, HP-IB 
0 Disponen de introductor automfitico de documentos opcional. 
& Dispone de Kit opcional de color 
Nota: I.V.A. 12%, no incluido en los precios arriba indicados 

Avda. 81asco Ib&fiez, 116 
Tel. (96) 372.88.89 
Telex 62220 - 46022 VALENCIA 

Muntaner, 60-2.°-4. a 
Tel. (93) 323.32.19 
08011 BARCELONA 

Agustin de Foxh, 25-3.°-A 
Tels. (91) 733. 57.00-733. 56. 50 
28036 MADRID 

* con interface paralelo 
• con interface Spectrum 



sinduda 
alguna 

A travs de esta secci6n se pre- 
tende resolver, en la medida de to 
posible, todas las posibles dudas 
que atormenten a todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si Io son, se encuen- 
tren en cualquier nivel de destrezo 
en su monejo. 
Semonolmenfe, oporecen en eslos 
pginos los ¢onsultas de Io mayor 
cenfidod de usuorios posible; ello re- 
dundor en un meior servicio yen 
un conloclo rn(s esfrecho enlre fo- 
dos nosofros o frovs de Io revisto. 
SIN DUDA ALGUNA est6 
abierta a todos. 

Poseo el libra Soft 158 que descri- 
be el firmware que viene con el 464, 
pero no he encontrado ningOn otro 
libra que facilite ms informaci6n sa- 
bre el --664-- (que es el ordenador 
que yo poseo) m6s concretamente 
sabre el firmware que controla la 
unidad de microflopy, ya que el res- 
to del firmware es prcticamente 
id6ntico en los dos modelos. 
Tampoco he encontrado ninguna 
publicaci6n sabre el hardware del 
664, tema 6ste que me interesa mu- 
chisimo. 
Asi que, si alguien me sabe orien- 
tar en este sentido y darme alguna 
pista sabre c6mo Iocalizar el CPC 
664 Service Manual o algOn libra si- 
milar le estar6 eternamente agrade- 
cido. 
Juan Antonio V6zquez (Cddiz) 
Coma habrds podido observar, el 
ordenador es capaz de detectar par 
si mismo sila unidad de entrada/sa- 
lida par defecto en un momenta da- 
do en la cinta o el disco; es decir, si 
td no le das la arden "'ITAPE'" o si- 
milar, cualquier operaci6n de lectu- 
ra/escritura de ficheros se realizard 
en el disco. 

Esto implica que las mismas rutinas 
de lectura/escritura que rigen el cas- 
sette funcionardn exactamente igual 
con el disco, siempre que no corrom- 
pas la zana de memoria del firmwa- 
re a actives expresamente el cassette. 
Una forma muy sencilla de com- 
probar Io que te decimos, es Ilamar 
a la rutina firmware que produce un 
directorio respetando los pardmetros 
que deben suministrdrsele. Si el dis- 
co estd operativo, verbs en la pan- 
talla una salida equivalente al co- 
mando Basic CAT. 

A) Las cintas que anunciis con 
todoslos programas publicados en 
el mes, la vais a poner a la venta en 
los quioscos juntamente con la revis- 
ta una vez al mes, o s61o los vais a 
vender solicit6ndola? 
B) En caso de enviaros un pro- 
grama grabado en cinta coma indi- 
c6is, devolver6is la cinta? Si Io hicie- 
rais seria de agradecer, pues algu- 
nas est6n par los nubes y las bara- 
tas son un rosario de Read errors. 
C) Pueden utilizarse cintas sin fin 
a modo de microdrive en el 464 y 
664? 
D) "Qu6 a pasado con las posibi- 
lidades de ampliaci6n de RAM que 
tan profusamente remarcaba la pri- 
mera publicidad de Amstrad y que 
ha caido en el olvido Oltimamente? 
Fernando Urruti (Sestao) 
A) La cinta que contiene los pro- 
gramas publicados en los cuatro nd- 
meros de coda mes no se venderd en 
quioscos. Tienes que pedirla par co- 
rreo, 
B) En principio, las cintas no se de- 
vuelven a menos queen la carta que 
has mandes envies los sellos de co- 
rreos necesarios para tal efecto. Si 
deseas recogerla, estd a tu disposi- 
ci6n durante un plaza no superior a 
dos meses a partir de la fecha en que 
tu programa Ilegue a nuestra redac- 
ci6n. 
C) No existen ese tipo de perif#- 
ricos para los Amstrad. No son ne- 
cesarios debido a la unidad de disco. 
D) Las posibilidades de amplia- 
ci6n de la publicidad realmente se re- 
fieren a memoria ROM, no RAM. Par 
razones muy obvias, se evit6 dejar 
ese punto la suficientemente clara. 

1. ° Son compatibles todos los 
programas que vienen en las cintas 
"SERIE ORO" con el CPC 464? 
2. ° AI hacer el programa de 
"BIORRITMOS" me da "SYNTAX 

ERROR" en las Iineas 760-840 y 210. 
He comprobado dichas lineas y no 
encuentro ningOn error, es decir, es- 
t6n igual que vienen en el listado. 
Me podriais indicar d6nde reside el 
error? 
3. ° Existen algunos comandos en 
el 664 que no Io admite el 464, pero 
se pueden suprimir 6stos par otros 
que si los admita el 464? 
Juan Jos Morales (Mdlaga) 

1. o A menos que se indique expli- 
citamente Io contrario, sL 
2. o Este problema, coma comen- 
tamos en su dia en esta misma sec- 
ci6n, se debe a la forma en la que 
el Amstrd evalda las funciones de- 
finidas par el usuario mediante la or- 
den DEF FN. 
Estas funciones son atesoradas en 
un lugar especial de la memoria, pe- 
ro el intrprete Basic s61o las estudia 
cuando la funci6n es invocada des- 
de alguna parte del programa. Si en 
la definici6n anteriormente hecha de 
la funci6n habia un error de sintaxis, 
el ordenador informard de ella, pe- 
ro dird que el error ocurre en la li- 
nea donde la funci6n es Ilamada, 
que normalmente estard perfecta- 
mente correcta. Este fallo del intgr- 
prete Basic, ha dado en este progra- 
may sin duda dard en otros, lugar 
 much confuione de et tipn. 

Amstrad  ] dens 

AMSTRAD Semanal comunica a todos 
sus lectores la apertura de una nueva sec- 
ci6n dedicada a recoger las mejores ideas 
que exploten al m6ximo los posibilidades 
del ordenador, materializadas en progra- 
mas claros y cortos (rnximo 251neas). Los 
mejores de entre todos elias ser6n publi- 
cados con el nornbre de su autor en la re- 
vista, recibiendo coma premio, gratuita- 
rnente en su domicilio los cuatro primeros 
ngmeros de nuestra cinta mensual. Los pro- 
gramas enviados deber6n incluir: 
-- Cinta de cassette con el pro- 
grama o programas grabados. 
-- Explicaci6n detallada del 
funcionamiento y prop6sito del 
programa, mecanografiado a 2 
espacios o con letra clara. 
Es imprescindible indicar en el sabre da- 
ramente: AMSTRAD IDEAS. 
Lo direcci6n es: 
Hobby Press, S. A. 
La ran/a, s/n. 
PolFgono Industrial de ,lcabendas. 
Madrid 



ISuscribete ahora a 1 

l y beneficiate de un] 

(Oferta vilida s61o hasta el 28 de febrero de 1986) 
Microhobby AMSTRAD te ofrece 
ahora una oportunidad 
excepcional. Hasta el 28 de febrero 
de '1986 podrs suscribirte a nuestra 
revista sin tener que pagar el 
recargo correspondiente al 
Impuesto sobre el Valor Aadido. IAPROVE¢IIA ESTA OPORTUNIDAD 
mmmmmm mm mmmmmmmmm mn mmmmmmmmmm 
RECORTA O COPIA ESTE CUPON Y ENVIALO A HOBBY PRESS, S.A. APDO. DE CORREOS 232 ALCOBENDAS [MADRID) 
Deseo suscribirme a Microhobby AMSTRAD durante un ao (0 nOmeros) pot s6lo 5.900 ptas., Io que me supone un ahorro de 2. ! 00 m 
pesetas, m 
oAo m 
APELLIDOS 

Microhobby AMSTRAD Io abona por ti. 
Ahora puedes recibir Microbobby 
AMSTRAD en tu domicilio durante 
todo un ao por s61o 5.900 ptas., es 
decirl 2.'100 ptas. menos de su valor 
real. 

DOMICILIO m 

CIUDAD PROVINCIA 
C. POSTAL TELEFONO PROFESION 
Marco con una (x) en el casillero correspondiente la forma de pago que m6s me conviene. 
[] Tal6n bancario adjunto a hombre de HOBBY PRESS, S. A. 

[] Giro Postal a hombre de HOBBY PRESS, S. A., N. ° 
r-I Contra reembolso del primer envlo 
[] VISA N. ° 
Fecha de caducidad de la tarjeta 
[] Domlciliaci6n bancaria (S0 NUMEROS MAS 1 DE REGALO) 
Banco Sucursal 
N. ° de cuenta 

I Silo prefiere puede j 
suscribirse por tel6fono: 
(91) 654 28 98 
Localidad 
Firma y fecha 

! 
! 

m 
m 
m 
m 



Con el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCA.DO COMUN te ofrece sus p6gi- 
nas para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
yen general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Fnvianos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
;ABSTENERSE PIR/,TAS! 

Amstrad 664/6128 desearia 
intercambio de programas en 
disco o cinta, utilidades o iuegos. 
Manuel Dfaz Fern6ndez. C/ 
Foncalada, 11 - 1. ° dcha. 33002 
Oviedo. Tel. 21 14 17. 

Vendo un cassette o cambio pot 
otro. Cambio <<El almirante Graft 
Speed> por <<combat Linx>> o <<Pole 
position>> o <<One on one>> o <Kong 
Strikes Back>>. Mandar a Ricardo 
Garcias. C/Cala Estancia, 5 
Bajos. 07007 Palma de Mallorca 
(8a/eares). 

".GABINETE DE INFORMATIA 
• Clases de Inform6tica 
sobre AMSTRAD 
En grupos o individuales 
• Ordenadores AMSTRAD y 
perifricos 
Los mejores precios 
• Software a la medida 

ZURBANO, 4'410 47 63 
28010 MADRID 

Vendo ordenador Amstrad 464 
con pantalla de f6sforo verde. 
Tengo m6s de 50 programas y 
varios libros. Regalo joystick y 
modulador. Intercambio 
programas del Amstrad. 
Preguntar por Jos6 Luis Soriano. 
C/ Reus, 6-1. 46009 Valencia. Tel. 
349 95 48. 

Por necesidades econ6micas 
vendo ordenador Amstrad 
CPC-664 con unidad disco 3" 
incorp., monitor Color 14" y 
progr. CP/M, Logo, Base Datos, 
Proces. Textos, Tasprint, Tascopy y 
6 progrs, m6s, todos en discos. 
Comprado el 5-10-85 con 
arantia oficial. Precio minimo 
8.000 pts. al contado (aceptar6 
la mejor oferta). Urge venta. A. 
Moreno. C/Riera Alta, 43, at. 3. a 
08001 Barcelona. 

Me gustaria intercambiar 
programas, juegos, ideas, etc., 
con usuarios del CPC 464 que 
vivan en Burgos. Llamar por la 
tarde al Tel. 26 06 89. Preguntar 
por Javier. 

lllJ 

Si no Io encuentras en tu tienda habitual, IImanos 
y te Io enviaremos directamente contra reembolso. 

Tenemos todos los modelos de 
Amstrad, perifricos, software y libros. 

Disco o/y cassette Amstrad 
Commodore 
Apple 

Robot 
Fischertechnik 

Distribuidor para EspaSa 
precio incluyendo caja de construcci6n 

software 
interface 
adaptador 

Todo.-- 34.gg0 ptas. 

Centro Comercial, Local 15 
Ciudad Sto. Domingo 
Carretera de Burgos, Km 28 
ALGETE - MADRID 
Telf. 622 12 89 



mquina te perniti{t marejar el sonido y 
la mdsica en tu Amstrad desde Basic, 
mediante un nuevo juego de comandos 
creados especialmente para ello. 

CROSS 
Tienes cuatro rev61veres para destruir a 
tus enemigos en el mfnimo tiempo posible. 
Necesitars toda tu habilidad," rapidez de 
reflejos y suerte, mucha suerte. 
JUMPER 

Debes alcanzar la cima del Valle de las 
Cintas Deslizantes. Tienes que saltar por 
los huecos de las vallas, que se 
desplazarin a derecha e izquierda con 
una rapidez de vrtigo. 

MAGGOT 

Te encuentras en la amable tierra de las 
setas gigantes. Tu misi6n es guardarla del 
ataque y la invasi6n de una peligrosfsima 
serpiente polim6rfica que las ataca sin 
piedad. 

TIMEBOMB 

Una organizaci6n terrorista de Oriente 
Medio ha colocado una bomba de tiempo 
en el labermto de defensa del Laboratorio 
de investigaci6n bacteriol6gica de 
Lexington. 

RSX 

Your Computer ha pensado en los usuarios 
del Amstrad CPC464 y ha creado un 
nuevo iuego de comandos completo para 
tu ordenador, de forma que el Basic as 
ampliado no tenga nada que envidiar al de 
los otros modelos de la serie, 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

I FRANQUEO 
POSTAL 

Apartado de Correos N. ° 232 
ALCOBENDAS 
(Madrid) 

EL CORAZON DE LA PRIMERA REVISTA EUROPEA DE ORDENADORES 
AMSTRAD ] 
464-664-6128 
La mejor se/ecci6n de programas 
de juegos y uti/idades, publicados 
en la revista de mayor difusin 
de Europa en ordenadores. 
Ahora reproducidos en 
cassette, en autntica() 
exclusiva mundiaL 
 C os 
 og ° 
me ualment pra      ( } ./- /  

Si no Io encontrara en su kiosco, puede solicitarlo directamente a nuestra editorial: 
Paseo de la Castellana, 268. Tel.: (91)733 25 99. 28046 Madrid. 



clones entn 

$OLICITUD DE CINTA$ DEPXU-b  AMA5 

Oferta v61ida hasta el 28 de febrero de 1986. ., ,. ' .:l.: -,. . .. 
Deseo recibir en mi domicilio, al precio de 756 ptas. (IVA induido), los 
siguientes cintas con los programas publicados par Microhobby AMSTRAD. ).1,:..,  
Marco con una (x) l (cinta(s) qua deseo: • 
[] Cinta  sJ 1 (contiene programas publicados en revistas 1 al 4 inclusive). 
[] Cinta n. ° 2 (contiene programas publicados en revistas 5 al 8 inclusive). 
NOTA: [] Cinta n. ° 3 (contiene programas publicados en revistas 9 a112 inclusive). 
Par razones administrati. [] CJnla n. ° 4 (confiene programas publicados en revistas 13 a116 inclusive). 
vas, no podemos odin#it sotic#u. [] Cinta n. o 5 (contiene programas publicados en revistas 17 a120 inclusive). 
des de envio de a'nlas con pago contra [] Cinta n. o 6 (contiene programas publicados en revistas 21 a140 inclusive). 
reembolso o Tarl'eta de Crgdifo. Par (avor, envia [] ¢inla n. o 7 (contiene programas publicados en revistas 41 a160 inclusive). 
tal6n par el importe o giro postal. 
/la farina depago etegida es tal6n bancodo, ram(rata/unto con [] ¢inta n. o 8 (contiene programas publkodos en revistas 61 a180 inclusive). 
este cup6n en un sabre cerrado a la misma direcci6n. 
los cinlas de programas se editan una coda rues. Si soticitas ratios, los recibirds sucesivamenle, conforme sean editadas. No se cobran gastas de envio par tas cintas. 
NOMBRE EDAD 
APELLIDOS 

MERCADO DOMICILIO 

nas para p 
que relacia 
mundo se a 
continuaci6 
En MERC, 
anuncios d 
usuarios de 
y en generc 
que pueda servir .e u ddad a nuestros 
lectores. 
Envianos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
iABSTENERSE PIR.,TAS! 

CIUDAD PROVINCIA 
C. POSTAL TELEFONO PROFESION 
;,ERES SUSCRIPTOR DE MICROHOBBY AMSTRAD? N. ° DE SUSCRIPTOR (si Io recuerdas) 
Marco con una (x) en el casillero correspondiente la farina de pago que m6s me conviene. 
[J Tal6n bancario adiunto a nombre HOBBY PRESS, S. A. 
[] Giro Postal a nomlre de HOBBY PRESS, S. A., N. ° Firma y fecha: 

Clases de Inform6tica 
sabre AMSTRAD 
En grupos o individuales 
Ordenadores AMSTRAD y 
perif@ricos 
Los meiores precios 
• Software a la medida 
ZURBANO, 4410 47 63 
28010 MADRID 

Moreno. C/ Riera Alta, 43, at. 3. a 
08001 Barcelona. 

Me gustara intercambiar 
programas, juegos, ideas, etc., 
con usuarios del CPC 464 que 
vivan en Burgos. Llamar par la 
tarde al Tel. 26 06 89. Preguntar 
par Javier. 

Si no Io encuentras en tu tienda habitual, IImanos 
y te Io enviaremos directamente contra reembolso. 

Tenemos todos los modelos de 
Amstrad, perif6ricos, software y libros. 

Disco o/y cassette Amstrad 
Commodore 
Apple 

Robot 
Fischertechnik 

Distribuidor para EspaSa 
precio incluyendo caja de construcci6n 

software 
interface 
adaptador 

Todo.-- 34.9g0 ptas. 

Centro Comercial, Local 15 
Ciudad Sto. Domingo 
Carretera de Burgos, Km 28 
ALGETE - MADRID 
Telf. 622 12 89 
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Ese rues; 
Te ofrece algo realmente sabroso: 

MUSICA 

Este magnffico programa.escrito en c6digo 
mquina te permitiri manejar el sonido y 
la msica en tu Amstrad desde Basic, 
mediante un nuevo juego de comandos 
creados especialmente para ello. 

CROSS 
Tienes cuatro rev61veres para destruir a 
tus enemigos en el m[nimo tiempo posible. 
Necesitaris toda tu habilidad, rapidez de 
reflejos y suerte, mucha suerte. 
JUMPER 

Debes alcanzar la cima del Valle de las 
Cintas Deslizantes. Tienes que saltar pot 
los huecos de las vallas, que se 
desplazarfm a derecha e izquierda con 
una rapidez de vrtigo. 

MAGGOT 

Te encuentras en ]a amab]e tierra de ]as 
setas gigantes. Tu misi6n es guardarla del 
ataque y la invasi6n de una peligrosfsima 
serpiente polim6rfica que las ataca sin 
piedad. 

TIMEBOMB 

Una organizaci6n terrorista de Oriente 
Medio ha colocado una bomba de tiempo 
en el laberinto de defensa del Laboratorio 
de invest[gaci6n bacteriol6gica de 
Lexington, 

RSX 

Your Computer ha pensado en los usuarios 
del Amstrad CPC464 y ha creado un 
nuevo juego de comandos completo para 
tu ordenador, de [orma que el Basic asf 
ampliado no tenga nada que envidiar al de 
los otros modeos de la serie. 

f 
EL CORAZON DE LA PRIMERA REVISTA EUROPEA DE ORDENADORES 

" AMSTRAD 
464-664-6128 
La mejor seleccin de programas 
de juegos y utilidades, publicados 
en la revista de mayor difusidn 
de Europa en ordenadores. 
Ahora reproducidos en 
cassette, en autntica 
exclusiva mundia/. 

695. 

Si no Io encontrara en su kiosco, puede solicitarlo directamente a nuestra editorial: 
Paseo de la Castellana, 268. Tel.: (91)733 25 99. 28046 Madrid. 



." .I BUSCAS LI IVIEJOR 

TODO EL DEPORTE EN TU 0',, ENADOR 

NATACION, TIRO AL PLATO, SALTO DE POTRO, 
• LEVANTAMIENTO DE PESO 
TIRO AL ARCO, TRIPLE SALTO 

PENALTIES CICLISMO, TIRO DE P]STOLA, 
REMO, SALTO DE ESOU!, S. " GiG ' 
OISTRISUIDOR EXCLLISIVO PAISA ESPARA ,{,[}l :O[iWAi]E, 8ANTA 'HGIACIA, II, Tel:' 413,.10, 
iEEGAIIOlt BA6CELOHA, Avd, MI_T, BAL 10. Te1,[931432 07 31 



